Einzelnen Beitrag anzeigen

Benutzerbild von Jens Hartmann
Jens Hartmann

Registriert seit: 11. Jan 2009
Ort: Wilnsdorf
1.439 Beiträge
 
Delphi XE2 Professional
 
#3

AW: Frame Align := alClient funktioniert nicht

  Alt 31. Jan 2011, 19:42
Eigendlich müssten die Komponenten das aber, ich habe folgenden Aufbau...

1. Frame, darauf 1 Panel = AlClient -> Somit Größe des Frames.
2. 2Panel 1 = AlTop, 1 = AlButtom
3. Jeweils 8 Panels auf den o.g. Panels alle mit AlTop;

Die Höhe lege ich im Code Fest...
Delphi-Quellcode:
procedure TFrame1.SetPanelHeight;
var
  i : Integer;
begin
  pnlGroup1.Height := pnlGround1.Height div 2;
  pnlGroup2.Height := pnlGround1.Height div 2;
  for i := 1 to 8 do
    begin
      (FindComponent('pnl'+IntToStr(i)) as TPanel).Height := pnlGroup1.Height div 8;
    end;
  for i := 9 to 16 do
    begin
      (FindComponent('pnl'+IntToStr(i)) as TPanel).Height := pnlGroup2.Height div 8;
    end;
end;
Das sollte doch eigendlich gehen, Oder?

Gruß Jens
Jens Hartmann
Das Leben selber ist zu kurz, also nutze jeden Tag wie er kommt.

Geändert von Jens Hartmann (31. Jan 2011 um 19:45 Uhr)
  Mit Zitat antworten Zitat