Formgröße proportional ändern

[spaxxn]

Du setzt ja auch nur die Breite...

Delphi-Quellcode:

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

Probier mal:

Delphi-Quellcode:

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  if NewWidth <> Self.Width then
    NewHeight := Round((3/4)*NewWidth)
  else if NewHeight <> Self.Height then
    NewWidth := Round((4/3)*NewHeight);
end;

Ist nicht getestet, aber wäre logisch ...

Edit: Habs gestestet und das geht, hab noch nen Zahlendreher in der Berechnung gehabt, also beachten.