| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
drag-and-drop формы [D5, WinXP]
Kor-win © (2006-04-02 10:50:00)Делаю сабж.
Ловлю 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 не ловить - всё приходит ок.
что делать?
Ketmar (2006-04-08 23:55:00) [1]оно приходит. но к виндам. которые в этом случае сами его и обрабатывают.
Kor-win (2006-04-08 01:35:00) [2]Да, забыл сказать - форма в длл
....а событие nclbuttonup приходит в 1 случае из 10
| |
