Ableitung von TPanel - wo/wann ist ClientWidth bekannt?

[wicht]

Es deutet vieles darauf hin, dass du Recht hast. Ich glaube, ich habe ein anderes Problem...

Hier mein kurzer Test-Quelltext, in dem ShowMessage() nicht aufgerufen wird:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TMyPanel = class(TPanel)
  protected
    procedure Loaded; override;
  end;

  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  P: TMyPanel;
begin
  P := TMyPanel.Create(Self);
  P.Parent := Self;
  P.Left := 10;
  P.Top := 10;
  P.Width := 100;
  P.Top := 100;
  P.Caption := 'Mein Panel!';
  P.Show;
end;

{ TMyPanel }

procedure TMyPanel.Loaded;
begin
  inherited;
  ShowMessage('X');
end;

end.

Mache ich irgendetwas anderes falsch? Ich habe das Gefühl, dass die Lösung sehr einfach ist, und mir das am Ende fast peinlich sein könnte.. ..