Текущий архив: 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.033 c