Считывание координат с Формы

← →
scorpi © (2003-11-06 07:56) [0]

Как отловить события мышки определенные в форме на других элементах? Например я в свойстве формы MouseMove определяю координаты курсора (X,Y) на форме но при перемещении на компонент TEdit координаты не считываются....Как это обойти?

← →
Спрашивающий_ (2003-11-06 08:22) [1]

Для примера, но не для готового решения
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
SetCapture(Handle);
Text:=IntToStr(X)+"/"+ IntToStr(Y)
end;

← →
Юрий Зотов © (2003-11-06 08:26) [2]

Вариантов много, например:
1. Назначить общий обработчик OnMouseMove для формы и всех ее контролов.
2. Повесить локальный мышиный хук.
3. Использовать Application.OnMessage.

Рекомендую третий способ - потому что он достаточно простой, но при этом универсальный (пишется один раз, работает для любой формы и любого ее контрола и не требует никаких доработок самих форм). Пример есть в справке.

← →
Спрашивающий_ (2003-11-06 09:07) [3]

Да вариант предложенный Юрием Зотовым поудачней будет,
у моего варианта есть недостатки, пример пункта 3.
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
P:TPoint;
begin
If Msg.message=wm_MouseMove Then
begin
GetCursorPos(P);
P:=ScreenToClient(P);
Text:=IntToStr(P.x)+"/"+IntToStr(P.y)
end;

end;

WndProc(var Message: TMessage) наверно еще можно перегрузить для формы

Считывание координат с Формы Найти похожие ветки