TPanel -> Caption ohne Inhalt

[Klaus Kirchhoff]

Hallo ich schreibe eine Komponente, abgeleitet von TPanel. Ich möchte, dass die Eigenschaft Caption bearbeitet werden kann, aber beim Erzeugen der Inhalt leer bleibt also nicht vorbelegt!

Hier ein Auszug aus dem Programm:
<PRE>
constructor TKKIPanel.create(AOwner:TComponent);
begin
inherited;
Caption := '';
Height := 25;
Align := alTop;
Alignment := taLeftJustify;
if not (AOwner is TForm) then Exit;
m_Form := AOwner as TForm;
with m_Form do
begin
if not (assigned(OnCreate)) then OnCreate:=MyCreate;
end;
end;
</PRE>

[Klaus Kirchhoff]

Das Problem konnte selbst lösen, habe die Komponente nicht
von TPanel sondern von TCustompanel abgeleitet, und ist Caption
noch gar nicht vorhanden

[Robert Marquardt]

Alternativ SetName ueberladen. Dort erst "inherited SetName" aufrufen was die Caption setzt wenn sie gleich dem alten Namen ist und dann die Caption auf '' setzen wenn sie gleich den neuen Namen ist

[Ulrich Gerhardt]

Durch Roberts Kommentar bin ich auf csSetCaption gestoßen. Schätzungsweise ist das folgende der "offizielle" Weg zum gewünschten Verhalten: ;-)<pre>
constructor TPanelOhneCaption.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle - [csSetCaption];
end;
</pre>Ciao, Uli