Delphi-Quellcode:
...
case AMonth of
1..6: begin
FParentCtrl := PnlSixMonts1;
// Beim ersten Panel machst Du das und das Ergebnis stimmt.
FParentCtrl.Padding.Left := GetParentControlPostion(FParentCtrl);
end;
7..12:begin
FParentCtrl := PnlSixMonts2;
// Beim zweiten Panel machst Du das nicht und das Ergebnis stimmt nicht.
FParentCtrl.Padding.Left := GetParentControlPostion(FParentCtrl);
end;
end;
...
end;
Wäre das eine Möglichkeit?
Delphi-Quellcode:
...
case AMonth of
1.. 6: FParentCtrl := PnlSixMonts1;
7..12: FParentCtrl := PnlSixMonts2;
end;
FParentCtrl.Padding.Left := GetParentControlPostion(FParentCtrl);
...