Seitenverhältnisse von Formularen beim Resize belassen

[ThoPos]

Hallo BitSetter,

leider kennt meine Form2 diesen Satz aus der Hilfe nicht oder hält sich zumindestens nicht daran:

Ich habe folgende Procedue in meiner Form2, welche nur zwei Objekte enthält,
ein TPanel und darin ein TImage, beide Align := alClient:

Delphi-Quellcode:

procedure TForm2.FormResize(Sender: TObject);
begin
  Form1.EditWidth.Text  := IntToStr(Image.Width);
  Form1.EditHeight.Text := IntToStr(Image.Height);
end;

Während der gesamten Größenänderung werden meine beiden Textfelder in der Form1 permanent aktualisiert und nicht erst am Ende (also wenn ich die Maus nicht mehr bewege bzw. die Maustaste loslasse). Daraus schließe ich, daß die Routine OnResize nicht erst am Ende des Resize aufgerufen wird.

Edit: Dunkel scheint meine Erkenntnis zu bestätigen, oder?

Gruß aus Köln
Thomas