Скачать: CL | DM;

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

← →
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]

Спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c