Problem: Kein Übergeordnetes Fenster bei neuer Komponente

[MarcRB1975]

Hallo,
ich hab ein Problem mit einer Komponentenerstellung.
Ich bekomme immer den Fehler : '' hat kein übergeordnetes Fenster.
Das versteh ich überhaupt nicht. :wall:

Mein Source:

Delphi-Quellcode:

type
TMTabelle = Class(TStringGrid)

private

protected

public
    destructor Destroy;
    constructor Create(AOwner:TComponent);override;
    procedure Laden;

published

end;

procedure Register;

implementation

List  :    TListBox;


procedure Register;
begin
RegisterComponents('Standard', [TMTabelle]);
end;

destructor TMTabelle.Destroy;
begin
inherited ;
end;

constructor TMTabelle.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
List := TListbox.Create(self);
List.Parent  := self;
Laden;                     // <--- dieser Verweis bringt mir den Fehler, aber warum??
end;

procedure TMTabelle.Laden;
var  Pfad  : String;
begin
pfad := 'Beispiel.txt';
List.Items.LoadFromFile(Pfad);
end;

Ich kann absolut nicht verstehen, warum er mir, wenn ich auf die Procedur "Laden" verweise, den Fehler bringt. "List" hab ich doch Parent zugewiesen.

Vielleicht könnte mir ja jemand sagen, was ich da falsch mache. :roll:

[Bernhard Geyer]

Brrr. List ist eine globale Variable.
Denk mal nach was passiert wenn du 2 Instanzen deiner Komponente erzeugst.

Es könnte sein das Du zwar einen (VCL-)Parent definiert hast, aber dieser noch kein Windows-Handle hat bei List.Items.LoadFromFile schon mit Windows-Handles gearbeitet wird.
Was spricht dagegen wenn du diese Liste in einer internen Liste speicherst und erst wenn die ListBox sichtbar ist dies Listbox füllst.

[runger]

Hallo,

nimm statt Tlistbox Tstringlist dann gehts. Tlistbox ist eine visuelle Komponente. Wo soll diese sich denn hinzeichnen wenn kein übergeordnetes Fenster da ist?

Rainer

[MarcRB1975]

Hallo,
ohh... danke für die schnellen Nachrichten. Ich werd das mal gleich versuchen, ob das geht.

DANKE!!