Лабораторная работа №16

Задача: При нажатии на верхнюю спаренную кнопку выводится сообщение Up, на нижнюю – Down.

procedure TForm1.SpinButton1DownClick(Sender: TObject);

begin

edit2.text:='Down'

end;

procedure TForm1.SpinButton1UpClick(Sender: TObject);

begin

edit2.text:='Up'

end;

Задания для самостоятельной работы:

Составить задачу, в которой форма окрашивается в выбранный из палитры цвет.