Klasse von TTreeNode abgeleitet -> Hinzufügen in TreeView

[Die Muhkuh]

Hi,

ich hab eine neue klasse erstellt:

Delphi-Quellcode:

TNodeExt = class(TTreeNode)
  public
    ID: Integer;
    Autor: String;
  end;
{ Das ist noch nicht alles. Da kommt noch mehr dazu

Wenn ich jetzt schreibe:

Delphi-Quellcode:

procedure TForm1.Button7Click(Sender: TObject);
var
  Node: TNodeExt;
begin
  Node := TV.Items.Add(nil, 'Test');
end;

bekomme ich folgende Fehlermeldung:

Code:

[Fehler] Unit1.pas(274): Inkompatible Typen: 'TNodeExt' und 'TTreeNode'

Warum kann ich meine Node nicht hinzufügen? ISt doch abgeleitet von TTreeNode.

[alcaeus]

Hi Manuel,

du könntest einem TTreeNode-Objekt ein TNodeExt-Objekt zuweisen, aber nicht umgekehrt. Du kannst einer Klasse, die beerbt wird ein Objekt einer Erbklasse zuweisen, nicht umgekehrt. Warum das so ist, weiß ich leider auch nicht.
Evtl. musst du casten:

Delphi-Quellcode:

Node := TNodeExt(TV.Items.Add(nil, 'Test'));

Ob das funktioniert, weiß ich leider auch nicht.

Greetz
alcaeus

[Die Muhkuh]

Hi,

:thumb:

So gings. Mirage meinte (hat er per ICQ gesagt) das ich lieber ne Kompo von TTreeView ableite die auch TNodeExt hat.
Ich werds mal versuchen :).