Width – 201

15. В окне инспектора объектов Object Inspector открываем вкладку Picture. В открывшемся окне

Используя вкладку Load выбираем нужный рисунок и нажимаем ОК

16. Приступите к созданию исходного кода. Создайте обработчик события OnClick для кнопок осуществляется аналогично п.5 данной лабораторной работы

Ø Чтобы нажатие кнопки приводило к каким-либо действиям, необходимо изменить содержимое обработчика события. Задайте появление текста «Картинка» и рисунка при нажатии кнопки «Показать». Для этого в окне редактора кода введите:

implementation

{$R *.dfm}

procedure TfrmГруппа. btmMyButton1 Click(Sender: TObject);

begin

ImgPic.Visible:=True;

Lblpic.Caption:='Картинка'

end;

end.

Ø Чтобы задать закрытие формы при нажатии кнопки закрыть нужно ввести в редакторе кода

implementation

{$R *.dfm}

procedure TfrmГруппа. btmMyButton2.Click(Sender: TObject);

begin

Close;

end;

end.

17. Выполните программу, щелкнув Run ( выполнить) на панели отладка или нажав <F9>. При этом на экране появится созданная Вами форма.

Проверьте правильность работы кнопки. Закройте приложение.

18. В папке Лабораторная 1 на диске Z. Создайте папку Задание 2

19. Сохраните созданный проект в папке Задание 2