[sambellamy]

Не обратил раньше внимания, более правильное описание следующее, в любом состоянии ExtendedBorders сообщение WM_NCLBUTTONDOWN приходит.

Но когда я щёлкаю мышкой по иконке в заголовке формы, должно приходить WM_NCLBUTTONDOWN с параметром HTSYSMENU, а его к сожалению нет.

Вот этот код раньше работал:

procedure TfrmNoteEditor.WMNCLBUTTONDOWN(var message: TMessage);

begin

if message.WParam <> HTSYSMENU then

begin

inherited;

exit;

end;

BeginDragAndDrop();

end;

[Author]

Posts