Formgröße proportional ändern

[guidok]

Zitat von phire_:

Also Hallo erstmal,

ich habe folgendes Problem:

Ich möchte, das wenn ich die Größe einer Form ändere (Borderstyle = bsSizeable) sich Width und Height proportional mitändern. Das heißt konkret, das sich zum bsp. Width und Height im Verhältnis 4:3 ändern.

ich möchte also immer das gleiche Format des Forms beibehalten.
ich habe es mit diesem code im OnResize Event probiert, doch das geht auch nur wenn man die Formnach unten hin vergrößert bzw. verkleinert, aber auch nicht gut, da die Form hin und her springt.

  Width := Round((4/3)*Height); ich freue mich auf eure antworten und hoffe ihr könnt mir helfen

mfg

Ich habe das jetzt mal probiert. Funktioniert einwandfrei, wenn man es so macht:

Delphi-Quellcode:

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  NewWidth := Round((4/3)*NewHeight);
end;

Edit: Ok, nicht ganz einwandfrei, weil es nicht geht, wenn man nur die Breite verändert...