Hallo Heiko, ich habe dir mal die wichtigsten Proceduren, wo was passiert, rauskopiert. der Setter wird vom Formular im FormCreate aus aufgerufen nachdem das Objekt Createt wurde.
Delphi-Quellcode:
constructor TBoardEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FBoardCheckBox:=TCheckBox.Create(nil);
//.....
Enabled:=false;
end;
//===
destructor TBoardEdit.Destroy;
begin
FBoardCheckBox.Free;
inherited Destroy;
end;
procedure TBoardEdit.CreateWnd;
begin
inherited;
FBoardCheckBox.Parent:=Self;
if csDesigning in ComponentState then FBoardCheckBox.Enabled:=false;
FBoardCheckBox.Name:=Name+'_TCheckBox1';
FBoardCheckBox.Checked:=True;
FBoardCheckBox.Enabled:=false
end;
Dieter