Mit einer zusätzlichen Zeile im Konstruktor geht es aber:
Delphi-Quellcode:
constructor TTestKompo1.Create(AOwner: TComponent);
begin
inherited;
FLabel := TLabel.Create(Self);
FLabel.Parent := Self;
FLabel.Top := 0;
FLabel.Left := 0;
If (AOwner<>nil) And (csDesigning In ComponentState) And Not (csReading In AOwner.ComponentState) then
LabelCaption := 'Hallo Welt';
end;
Dadurch wird das Label immer nur dann mit dem Default-Wert belegt, wenn es in der
IDE erzeugt wird, ansonsten entweder mit einem Leerstring oder was in der
DFM steht.
Gruß, teebee