Стр. 240 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
240
11. Для пункта меню Желтый (N5) создайте обработчик события
OnClick – процедуру N5Click.
//щелчок мышью по пункту меню N5
procedure TForm1.N5Click(Sender: TObject);
begin
Form1.Canvas.Pen.Color:=clYellow;
end;
12. Для пункта меню Случайный (N6) создайте обработчик события
OnClick – процедуру N6Click.
//щелчок мышью по пункту меню N6
procedure TForm1.N6Click(Sender: TObject);
begin
Form1.Canvas.Pen.Color:=random(65536);
end;
13. Запустите приложение рис. 21.4.
Рис. 21.4
14. Окончательный вариант приложения приведен в листинге 21.1. Ком-
ментарии удалены.