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

Информатика. Программирование в Delphi
239
OnMouseDown – процедуру FormMouseDown.
//выполняется при нажатии кнопки мыши на форме
procedure TForm1.FormMouseDown(Sender: TObject; Button:
TMouseButton; Shift: TShiftState; X, Y: Integer);
var
//радиус звезды
r:integer;
begin
//случайный выбор радиуса
r:=random(100);
//отрисовка звезды
starline(x,y,r);
end;
7. Для пункта меню Черный (N1) создайте обработчик события OnClick
– процедуру N1Click.
//щелчок мышью по пункту меню N1
procedure TForm1.N1Click(Sender: TObject);
begin
Form1.Canvas.Pen.Color:=clBlack;
end;
8. Для пункта меню Зеленый (N2 ) создайте обработчик события OnClick
– процедуру N2Click.
//щелчок мышью по пункту меню N2
procedure TForm1.N2Click(Sender: TObject);
begin
Form1.Canvas.Pen.Color:=clGreen;
end;
9. Для пункта меню Красный (N3) создайте обработчик события OnClick
– процедуру N3Click.
//щелчок мышью по пункту меню N3
procedure TForm1.N3Click(Sender: TObject);
begin
Form1.Canvas.Pen.Color:=clRed;
end;
10. Для пункта меню Синий (N4) создайте обработчик события OnClick –
процедуру N4Click.
//щелчок мышью по пункту меню N4
procedure TForm1.N4Click(Sender: TObject);
begin
Form1.Canvas.Pen.Color:=clBlue;
end;