Текущий архив: 2003.06.30;
Скачать: 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 вся ветка
Текущий архив: 2003.06.30;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.014 c
