Практикум по Delphi для решения прикладных задач


Приветствие


Цель работы - создать программу, выполняющую следующие действия:

1. После запуска программы по щелчку мышью на кнопке «Приветствие» появляется сообщение «Первые успехи».

 


2.      Для выхода из программы необходимо щелкнуть мышью на кнопке «Закрыть».

Описание плана разработки программы

1.      Открыть новый проект.

2.      Разместить на форме экземпляры компонентов: метку Label и две кнопки Button.

3.      Выполнить следующие действия:

Таблица 2.

Выделенный объект

Вкладка окна

Object Inspector

Имя свойства/

имя события

Действие

Form1

Properties

Caption

Установка имени формы «Проект2»

Label1

Properties

Caption

Ввод текста надписи «Первые успехи»

Button1

Properties

Caption

Установка имени кнопки «Приветствие»

Events

OnClick

Label1.Caption:=’Первые успехи’

Button2

Properties

Caption

Установка имени кнопки «Закрыть»

Events

OnClick

Close;

4.      Сохраните проект, запустите и протестируйте его.

Задание для самостоятельного выполнения

1. Сделать шрифт выводимой реплики «Первые успехи!» отличным от стандартного по виду, цвету и размеру.

Подсказка. В Object Inspector дважды щелкнуть справа от названия свойства Font.

2. Заменить вид кнопки «Выход» на более привлекательный.

Подсказка. Для замены кнопки удалить существующую, а другую BitBtn найти в палитре компонентов на вкладке Additional. Затем изменить ее вид с помощью свойства Kind.

3. Сделать так, чтобы после нажатия кнопки «Приветствие» на экране появлялось сообщение «Первые и не последние!».

Подсказка. Изменить значение свойства Caption метки Labell при реакции кнопки Buttonl на событие OnClick.

 

Листинг программы

 

unit Unitl;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons;

 

type

TForral = class(TForm)

Labell: TLabel;

Buttonl: TButton;

BitBtnl: TBitBtn;

procedure ButtonlClick(Sender: TObject);

 

private

{Private declarations }

 

public

{Public declarations }

end;

 

 var

Forml: TFonnl;

 

implementation

{$R *.DFM)

procedure TForml.ButtonlClick(Sender: TObject);

begin

Label1.Caption:='Первые и не последние!';

end;

 

end.





Начало  Назад  Вперед



Книжный магазин