AutoSize

[Nils_13]

Hi,

bei mir macht bei einem Panel AutoSize Ärger:

Delphi-Quellcode:

Pan := TPanel.Create(Self);
with Pan do
begin
  Parent := TWinControl(Self);

  ...

  AutoSize := True;

  Left     := L;
  Top      := T;
  ShowMessage(IntToStr(Width)); // 185 -> Standardbreite eines Panels

  ...

  Show;
end;

185 ist natürlich falsch, es muss 25 sein und das bestätigt der Buttonklick auch:

Delphi-Quellcode:

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(Pan.Width));
end;

Was muss ich tun, um die die richtige Breite in der Erstellprozedur rauszubekommen ?