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