Page 77 - 6370

Рисунок 54 – Додано об’єкт класу TMemo .

7. Користуючись процедурами, які представлені у пункті 5
першої частини доповнюють дану програму новою
процедурою опрацюванням події OnMouseUp форми
Form3:
procedure TForm3.FormMouseUp (Sender:
TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);
begin

if (ssAlt in Shift) then
begin
canvas.MoveTo(x,y);

x1:=x;
// координата X точки A ( рисунок 42)

y1:=y;
// координата Y точки A( рисунок 42)

StatusBar1.Panels[2].Text:='x1'+'
'+intToStr(x);

StatusBar1.Panels[3].Text:='y1'+'
'+intToStr(y);
79