Zwei Bereiche im Verhältnis verkleinern bei Größenänderung

[faux]

Hallo!

Ich bin mir sicher, dass es bereits x Lösungen für diese Frage gibt, aber ich habe keinen Plan nach welchem Suchbegriff ich suchen soll. :?
Also ich habe eine Form (siehe Anhang) deren obere Hälfte in zwei Teile geteilt ist (die zwei Tabellen). Die linke Tabelle hat Align = alLeft, der Splitter ebenfalls und die rechte Tabelle dann alClient.
Wie kann ich das realisieren, dass beim Vergrößern der Form, das Teilungsverhältnis beibehalten wird (also nicht nur die rechte Seite verkleinert bzw vergrößert wird?
Geht das nur durch Programmieren oder kann ich das auch designen? Diese Frage habe ich mir schon bei mehreren Projekten gestellt.

Grüße
Faux

[thkerkmann]

Hallo,

das geht nur durch Programmieren....

Ich würde es mal so versuchen...

Delphi-Quellcode:

var
  Verhaeltnis: extended;

procedure TForm1.OnCreate(Sender:tObject);
begin
  Verhaeltnis := Tabelle1.Width / Self.Width;
end;

procedure TForm1.OnResize(Sender:tObject);
begin
  Tabelle1.Width := Round(Self.Width * Verhaeltnis); 
end;

procedure TForm1.Splitter1OnMoved(Sender:tObject);
begin
  Verhaeltnis := Tabelle1.Width / Self.Width;
end;

Gruss

Thomas.