Как определить над каким компонентом на форме нажата левая кнопка

← →
Maxx (2003-06-18 14:10) [0]

Как определить над каким компонентом на форме нажата левая кнопка мыши, уже видел что-то на эту тему на форуме, не могу найти.

← →
Palladin (2003-06-18 14:18) [1]

Над каким или на каком? Задай верный вопрос!

← →
Maxx (2003-06-18 14:43) [2]

пардон, на каком?

← →
NAlexey (2003-06-18 15:09) [3]

var Ctl: TWinControl; P: TPoint; H: HWND; begin GetCursorPos(P); H := WindowFromPoint(P); if H <> 0 then begin Ctl := FindControl(H); if Assigned(Ctl) then end;

← →
Spawn (2003-06-18 19:21) [4]

а можно поставить обработчик на Apllication.OnMessage -

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var
Control:TWinControl;
begin
if Msg.message=WM_LBUTTONDOWN then
Control:=FindControl(Msg.Hwnd);
end;

← →
Spawn (2003-06-18 19:23) [5]

Блин неправильно написал апликейшн, а править нельзя. Application :)

← →
Maxx (2003-06-19 09:51) [6]

Спасибо!

Как определить над каким компонентом на форме нажата левая кнопка Найти похожие ветки