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'

[Chearly020664]

Hier die ganze Unit1:

[DeddyH]

Versuch mal

Delphi-Quellcode:

procedure TForm1.WMEXITSIZEMOVE(var Message: TMessage);
begin
  inherited;
  BerechneDasBild(self);
end;

[Chearly020664]

Herzlichen dank - das funktioniert jetzt.

:oops: :roll:

[venice2]

Zitat:

Versuch mal

jep. hatte es nur kopiert und nicht drauf geachtet das es Sender in der Procedure gar nicht gibt.
Solange es nun geht. :lol: