Zitat von
mkinzler:
Wie sieht der Code deines Konstruktors aus?
Öhm wüsst jetz nich inwiefern das helfen soll aber gut:
Delphi-Quellcode:
constructor TFoldingSheet.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
//set parent
{...}
//set properties
{...}
//set title bar
fhTitle:=TFoldingSheetHeader.Create(Self);
with fhTitle do
begin
Parent:=Self;
OnClick:=EventTitleClick;
OnDblClick:=EventTitleClick;
end;
//set body
scrBody:=TScrollBox.Create(Self);
with scrBody do
begin
Parent:=Self;
Align:=alClient;
Color:=clBtnFace;
ParentColor:=False;
ControlStyle:=ControlStyle+[csAcceptsControls];
BorderStyle:=bsNone;
end;
end;