Thema: Delphi 2 Pannels + 1 TSplitter

Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#2

Re: 2 Pannels + 1 TSplitter

  Alt 21. Aug 2008, 20:29
Hallo,

Berechne im OnResize Ereignis der Form die neue Panel Breite.

Delphi-Quellcode:
procedure TForm1.FormResize(Sender: TObject);
begin
  Panel1.Width := Trunc(Self.Width div 2);
  // evtl. anstatt Panel1 Panel2 nehmen, je nach Anordnung.
  // Falls nicht beide Panels gleich breit sind, div 2 durch anderen Faktor ersetzen.
end;
Thomas
  Mit Zitat antworten Zitat