procedure ausführen, wenn fenster maximiert wurde

[TStringlist]

Control subclassen und danach nach WM_SIZE Ausschau halten plus: wParam dann auf SIZE_MAXIMIZED checken. Also ungefähr so:

Delphi-Quellcode:

var
  Form1: TForm1;
  OldWndProc : cardinal;

implementation

{$R *.dfm}

function Edit1WndProc(hWnd1: hWnd; uMsg: UInt; wP: WParam; lP : LParam) : LResult; stdcall;
begin
  if uMsg = WM_Size then
    if wP = SIZE_MAXIMIZED then beep; // oder sonst eine Proc aufrufen
  Result := CallWindowProc(Pointer(OldWndProc), hWnd1, uMsg, wP, lP);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  OldWndProc := SetWindowLong(TWinControl(Form1).Handle,GWL_WndProc,integer(@Edit1WndProc));
end;