Ereignis nach vergrößern oder verschieben von Fenster

[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.