Page 37 - 6370
P. 37
(sender as TForm).Canvas.MoveTo(x1,y1);
(sender asTForm).Canvas.lineTo(x2,y2);
With (sender as TForm).canvas do
begin
pen.Color:=clBlack;
pen.Width:=1;
end;
end;
11. На форму Form2 виставляють кнопку Button5 і
надають її властивості сaption значення < виділення
курсором >. Подвійним клацанням створюють заготовку
процедури Button5Click і у її тіло вкладають процедуру
figura2_show із параметром sender, якому надане фактичне
значення - Form2 і параметрами x1,y1,x2,y2, значення яким
передбачається надавати користувачем з допомогою
курсора і мишки у події OnMouseDown.
procedure
TForm2.Button5Click(Sender:TObject);
begin
figura2_show (form2,x1,y1,x2,y2);
end;
12. Для того, щоб значення параметрів можна було
передавати між різними подіями дооголошують їх у
розділі декларації змінних модуля. Отже серед глобальних
оголошень дописано: x1,y1,x2,y2: integer.
var Form2: TForm2; sx,sy:integer;
x1,y1,x2,y2:integer;
39
