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>
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>
Comment