Woran kann ich merken, dass Rezise beendet ist?

[Chearly020664]

Code:

procedure WMEXITSIZEMOVE(var Message: TMessage); message      WM_EXITSIZEMOVE;
...
procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
    ShowMessage('Just Resized');
end;

Das läuft bei mir nach einem Resize.-

Wenn ich statt ShowMessage(); meine Berechnungs-procedure aufrufe:

Code:

procedure WMEXITSIZEMOVE(var Message: TMessage); message      WM_EXITSIZEMOVE;
...
procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
    BerechnedasBild(Sender);
end;

gibt es jetzt nur noch eine Fehlermeldung: Undefinierter Bezeichner 'Sender'