Пример обработки события нажатия кнопки мыши



Листинг 19.13.Пример обработки события нажатия кнопки мыши

procedure TForm1. FormMouseDown (Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Canvas.TextOut(X, Y, '('+IntToStr(X) +', '+IntToStr(Y) + ')');
end;

Данный код мы вписали в обработчик события OnMouseDown формы Form1. Если теперь запустить программу на исполнение и пощелкать мышкой в разных частях формы, в тех местах формы, где происходит щелчок мыши, будут выведены координаты этих точек.



Содержание раздела