Form vergrößern samt Inhalt

[overmoon]

Um die Komponenten einer Form proportional zu ändern kann man die Methode ScaleBy benutzen:

Delphi-Quellcode:

var oldHeight: Integer = 640;

procedure TForm1.FormResize(Sender: TObject);
begin
     ScaleBy(Height,oldHeight);
     oldHeight := Height;
end;