Zitat von
Hawkeye219:
Hallo Kostas,
ich habe es nicht getestet, aber so könnte es funktionieren:
Delphi-Quellcode:
type
TLabelPanel = class(TPanel)
...
published
property AngleLabel : TJvAngleLabel read FAngleLabel; // kein write
end;
Constructor TLabelPanel.Create(AOwner:TComponent);
begin
inherited Create(aOwner);
self.Caption := '';
FAngleLabel := TJvAngleLabel.Create(self);
FAngleLabel.Parent := self;
FAngleLabel.caption := 'Das isze ein langer Text';
FAngleLabel.SetSubComponent (True); // neu
end;
Zum Entfernen der Eigenschaft
Caption mußt du deine Komponente von
TCustomPanel ableiten. Dann kannst du nur die von dir gewünschten Eigenschaften veröffentlichen.
Gruß Hawkeye
Hallo Hawkeye,
bitte was ist "SetSubComponent(True);" hab das nicht in Delphi 5.
Gruß Kostas