Größenverhältnis der Form bei Größenänderung beibehalten

[TheAn00bis]

Hey,

Ich will das Verhältnis von Höhe und Größe meiner Form beim Verändern der Größe beibehalten.

Da ich ja wissen muss, ob die Breite oder Höhe verändert wurde habe ich folgenden Code geschrieben:

Delphi-Quellcode:

procedure TForm1.FormResize(Sender: TObject);
begin
  if (OldSizeX <> form1.Width) then //-> form1's width has been changed
    form1.Height := form1.Width
  else form1.Width := form1.Height; //height has been changed
  OldSizeX := Form1.Width; 
end;

Dieser funktioniert auch halbwegs, allerdings sieht das ganze sehr(!) unschön aus, da die Form beim
Verändern der Größe scheinbar wie verrückt ihre Größe ändert; dies hat auf den eigentlichen Vorgang
keine Auswirkungen, da der Cursor davon nicht betrofen ist, aber es sieht wie gesagt absolut unprofessionell
aus. Gibt es da eine bessere Lösung?