Как отработать 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]

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

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