Задача: При нажатии на верхнюю спаренную кнопку выводится сообщение Up, на нижнюю – Down.
procedure TForm1.SpinButton1DownClick(Sender: TObject);
begin
edit2.text:='Down'
end;
procedure TForm1.SpinButton1UpClick(Sender: TObject);
begin
edit2.text:='Up'
end;
Задания для самостоятельной работы:
Составить задачу, в которой форма окрашивается в выбранный из палитры цвет.