Welche Nachricht muss ich abfangen?

[Chearly020664]

Delphi-Quellcode:

procedure WMEXITSIZEMOVE(var Message: TMessage); message WM_EXITSIZEMOVE;
.
.
.
Form1WidthAlt:=Form1.Width;
Form1HeightAlt:=Form1.Height;
.
.
.
procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
     If (Form1.Width<>Form1WidthAlt) or (Form1.Height<>Form1HeightAlt) then
     begin
          inherited;
          Apfelmann1Click(self);
     end;
end;

Elegant ist das nicht, aber funktioniert.

Jetzt muss ich noch auf Form1-Maximieren und Form1-Verkleinern reagieren, dann bin ich mit dem Programm fertig.

Gruß