Ich habe eine Komponente von TCustomComboBox abgeleitet und habe nun plötzlich unter Delphi2005 (SP2) ein Problem... sobald ich die Komponente auf mein Form ziehe kommt die Meldung:
Element '' hat kein übergeordnetes Fenster.
Codeauszug
Delphi-Quellcode:
type
TFr_LocalMailComboBox = class(TCustomComboBox)
private
{ Private-Deklarationen }
...
protected
{ Protected-Deklarationen }
...
public
{ Public-Deklarationen }
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
{ Published-Deklarationen }
...
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('FriFra', [TFr_LocalMailComboBox]);
end;
constructor TFr_LocalMailComboBox.Create(AOwner: TComponent);
begin
inherited;
LocalMail := TFr_LocalMail.Create(Self);
{ Testcode }
Showmessage('jetzt'); //Diese Message kommt noch
Items.Add('Test'); //hier geht dann etwas schief... :?
Showmessage('ok'); //Di Message kommt wegen des Fehlers nicht
SetDefaults;
end;
destructor TFr_LocalMailComboBox.Destroy;
begin
LocalMail.Free;
inherited;
end;
...
Unter Delphi 5, 6 und 7 gibt es das Problem nicht
Elektronische Bauelemente funktionieren mit Rauch. Kommt der Rauch raus, geht das Bauteil nicht mehr.