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?