Hallo,
ich hab ein Problem mit einer Komponentenerstellung.
Ich bekomme immer den Fehler : '' hat kein übergeordnetes Fenster.
Das versteh ich überhaupt nicht.
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.
