Layout der GUI Fullscreen / geteilter Bildschirm

[Christian Seehase]

Moin Helpliner,

also ich habe mal folgendes gemacht:

1. Neue Anwendung
2. TWebbrowser auf das Formular
3. Webbrowser1.Align := alTop
4. TSplitter auf das Formular
5. Splitter1.Align := alTop
6. TWebbrowser auf das Formular
7. Webbrowser2.Align := alClient

Anschliessend hab' ich dann noch folgendes Ereignisprozeduren hinzugefügt.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Webbrowser1.Height := (self.ClientHeight-Splitter1.Height) div 2;
  Splitter1.Tag      := 50; // Höhe Webbrowser1 = 50% des Clientbereiches
end;

procedure TForm1.FormResize(Sender: TObject);
begin
  Webbrowser1.Height := ((self.ClientHeight-Splitter1.Height) * Splitter1.Tag) div 100;
end;

procedure TForm1.Splitter1Moved(Sender: TObject);
begin
  // Prozentualen Anteil neu berechnen
  Splitter1.Tag := (Webbrowser1.Height * 100) div (self.ClientHeight-Splitter1.Height);
end;

Jetzt kann man das Fenster in der Grösse verändern, und die anteilige Verteilung der beiden Webbrowser bleibt gleich.
Entscheidend ist, dass die Verteilung der Controls von Webbrowser1 abhängt, da sich, auf Grund der Einstellung alClient, Webbrowser2 immer anpasst.