Delphi Перехватить Клик Мыши

Для перехвата клика мыши в приложении Delphi можно использовать процедуру OnMouseDown. Эта процедура вызывается при нажатии кнопки мыши и позволяет выполнить необходимый код.

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);begin  //ваш кодend;

В параметрах эта процедура принимает информацию о нажатой кнопке (левая, правая или средняя), состоянии клавиш-модификаторов (например, Shift), а также координаты X и Y (положение курсора мыши на форме).

Чтобы необходимый код выполнялся только для определенной области на форме, можно проверять координаты X и Y, а затем выполнять необходимые действия.

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer);begin  if (X > 100) and (X < 200) and (Y > 100) and (Y < 200) then  begin    //ваш код  end;end;

Эта процедура проверит, находится ли курсор мыши в области, ограниченной координатами X и Y от 100 до 200, и выполнит необходимый код только в этом случае.