Formgröße proportional ändern

[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