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