Event Fenster verschieben?

[sakura]

Wäre auch zu schön gewesen. Aber ich habe eine Lösung gefunden und(!) getestet.

Delphi-Quellcode:

  private
    { Private declarations }
    procedure WMMOVE(var Msg: TWMMove); message WM_MOVE;
  .....



procedure TForm1.WMMOVE(var Msg: TWMMove);
begin
  inherited;
  ShowMessage('g');
end;

......