Скачать: CL | DM;

Как отработать ButtonUp левой на заголовке формы?   Найти похожие ветки 

← →
Matolch.   (2003-01-12 12:54) [0]

Не помогает:

procedure NCLButtonUp(var Message: TWMNCLButtonUp); message WM_NCLBUTTONUP;

procedure TMainForm.NCLButtonUp(var Message: TWMNCLButtonUp);
begin
beep;
inherited;
end;

---

← →
Matolch.   (2003-01-12 13:01) [1]

Немножко вру. Помогает, если wsMaximized.

---

← →
Юрий Зотов ©   (2003-01-12 13:08) [2]

Думаю, все дело в захвате мыши. Если при нажатии кнопки мышь захватывается, то при ее отпускании форма получит сообщение WM_LBUTTONUP, а не WM_NCLBUTTONUP.

Ставьте флажок в обработчике WM_NCLBUTTONDOWN, а в обработчике WM_LBUTTONUP сбрасывайте его и производите нужные действия. Пример можно посмотреть здесь:
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1042356911&n=5

---

← →
Matolch.   (2003-01-12 13:21) [3]

Спасибо Юрий. Буду смотреть.

---

← →
Matolch.   (2003-01-12 13:49) [4]

Мда. Для того и спрашивал, куда послали.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c