Moin Helpliner,
also ich habe mal folgendes gemacht:
- Neue Anwendung
- TWebbrowser auf das Formular
- Webbrowser1.Align := alTop
- TSplitter auf das Formular
- Splitter1.Align := alTop
- TWebbrowser auf das Formular
- 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.