Форум: "Основная";
Текущий архив: 2003.06.30;
Скачать: [xml.tar.bz2];
Вниз
Как определить над каким компонентом на форме нажата левая кнопка Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.012 c
