Page 6 - 6370

end;
3. Створюють процедуру опрацювання події
FormMouseUp для побудови прямокутника з
координатами sx, sy - це координати курсору в момент
натискання правої клавіші мішки і X, Y -це координати
курсору в момент відпускання будь-якої клавіші мишки
(рисунок 1).

procedure TForm2.FormMouseUp(Sender:
TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin

Canvas.Rectangle(sx,sy,x,y);
end;

Рисунок 1- Оголошення подій FormMouseDown і
FormMouseUp.

4. Здійснюють команду Run і клацають лівою кнопкою
миші. В результаті у вікні застосунку з’явиться
прямокутник (Рисунок 2). Верхній лівий кут має
координати: 0,0. Це сталося тому, що була натиснута ліва,
а не права клавіша миші. Тобто подія FormMouseDown не

8