Ereignis nach vergrößern oder verschieben von Fenster

[norwegen60]

Hallo zusammen,

ich möchte nachdem ein Fenster verschoben oder in der Größe verändert wurde die Position wegspeichern. Aktuell mache ich das beim OnClose-Ereignis des Fensters.
Jetzt möchte ich, dass die Positionen direkt nach einer Änderung gespeichert werden.

• OnResize funktioniert einwandfrei für Größenänderungen, nicht aber für Verschieben
• OnCanResize funktioniert für beides aber mit dem Nachteile, dass das Ereignis beim Verschieben x mal ausgelöst wird

Gibt es einen einfachen Weg nur beim Loslassen des Fensters zu reagieren?

Danke
Gerd

[Der schöne Günther]

Du musst auf die Windows-Nachricht WM_EXITSIZEMOVE reagieren:

Delphi-Quellcode:

unit Unit20;

interface uses
   System.Classes,
   Winapi.Messages,
   Vcl.Controls, Vcl.Forms
;

type
   TForm1 = class(TForm)
   private
      procedure WmExitSizeMove(var msg: TWMNoParams); message WM_EXITSIZEMOVE;
   end;

var
   Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }


procedure TForm1.WmExitSizeMove(var msg: TWMNoParams);
begin
   Color := Random($FFFFFF);
   inherited;
end;

end.

PS: Das beinhaltet auch bereits Größenänderungen.

[norwegen60]

Super. Hat geklappt. Die Windows-Nachrichten vernachlässige ch immer wieder .