Текущий архив: 2006.07.16;
Скачать: CL | DM;
Вниз
drag-and-drop формы Найти похожие ветки
← →
Kor-win (2006-04-02 10:50) [0]Делаю сабж.
Ловлю wm_nchittest и wm_lbuttonup:
type form=class(tform)
...
private
procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST;
procedure WMlbuttonup(var Message: tmessage); message WM_lbuttonup;
end;
...
procedure Tform.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;
Message.Result := HTCAPTION;
end;
procedure Tform.WMlbuttonup(var Message: tmessage);
begin
outputdebugstring("lbuttonup");
end;
в результате:
если WM_NCHITTEST ловится - то lbuttonup не приходит!(и событие form.mouseup тоже). Хотя spy++ его показывает.
Если же NCHITTEST не ловить - всё приходит ок.
что делать?
← →
Kor-win (2006-04-08 01:35) [1]Да, забыл сказать - форма в длл
....а событие nclbuttonup приходит в 1 случае из 10
← →
Ketmar © (2006-04-08 23:55) [2]оно приходит. но к виндам. которые в этом случае сами его и обрабатывают.
Страницы: 1 вся ветка
Текущий архив: 2006.07.16;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.032 c
