Unterscheidungen zwischen dem Schließen einer Form

[hathor]

HTCAPTION auswerten oder die WM_NCLBUTTONDOWN message

Delphi-Quellcode:

  protected
    procedure WMNCLBUTTONDOWN(var msg: TMessage); message WM_NCLBUTTONDOWN;
...
procedure TForm1.WMNCLButtonDown(var Msg: TWMNCLButtonDown);
begin
  if (Msg.HitTest = HTCAPTION) then...