Label Länge in Create falsch

[Mathias]

Beim Create des Forms, ist Label.Width 65, obwohl Width viel kürzer ist.
Beim späteren Klicken auf den Button, ist die Länge korrekt.
Wieso ?

Code: Alles auswählen

var
  l: TLabel;

procedure TForm1.FormCreate(Sender: TObject);
begin
  l := TLabel.Create(Self);
  l.Parent := Self;
  l.Caption := '1';             // Sehr kleines Label
  Caption := l.Width.ToString;  // Width = 65
end; 

procedure TForm1.Button1Click(Sender: TObject);
begin
  l.Caption := l.Caption + 'abcabc';
  Caption := l.Width.ToString;  // Länge ist korrekt
end; 

[wennerer]

Hallo Mathias,
ist zwar nicht die Antwort auf deine Frage aber wenn du es in die Show Methode packst gehts.
Vielleicht muss Create komplett durchlaufen sein damit es passt?

Code: Alles auswählen

procedure TForm1.FormShow(Sender: TObject);
begin
 Caption := l.Width.ToString;  // Länge ist korrekt
end;  

Viele Grüße
Bernd