Практическая работа №3

Приветствие

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

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

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

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

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

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

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

Таблица 2.

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;

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.