eine "class" verändern, Name beibehalten

[Nogge]

Hallo Community,
Ich möchte gern die "class" TTreeNode um einen Word-Wert erweitern, dabei aber den Klassen-Namen beibehalten. So, wie es im unten stehenden Code geschrieben steht, funktioniert es aber leider nicht.

Delphi-Quellcode:

type
  TTreeNode{Ex} = class(TTreeNode)
    private
      { Private declarations }
      GroupID: Word; 
    end;

Ich habe es zuerst mit dem Namen TTreeNodeEx versucht, allerdings nimmt dann ein TreeView dieses Item nicht mehr an. Ich möchte nun nicht noch die TreeView-Klasse umschreiben, weil es einfacher ist, mit einer VCL-Treeview zu arbeiten. Außerdem gefällt mir die Data-Variante auch nicht so sehr => ein wenig umständlich und weniger übersichtlich.
Weiß da jemand eine Lösung?

[Grendel]

Ob es eine elegantere Lösung gibt weiß ich nicht, aber wir (Firma) haben letztens noch den kompletten Tree aus der VCL Kopiert und die Anpassungen daran gemacht.
Wir haben jedenfalls keine andere Möglichkeit gefunden die TreeNodes um Eigenschaften zu erweitern.

Bis neulich ...

[malo]

Wenn du eine Pro/Ent/Arc-Version benutzt, kannst du ja prinzipiell direkt im Source die entsprechende Stelle bearbeiten. Dann die Unit kopieren und in den Lib-Ordner einfügen. Im Libordner musst du dann nur noch die .dcu-Datei entfernen ;)

Sollte jedenfalls so funktionieren ;)

[jfheins]

1000. Beitrag .... :

Schau dir doch mal das hier an, da wurde soetwas gemacht ...

:wink:

Und jetzt: :party: :dancer: :dancer2: :witch: :bounce1: :firejump: :bounce2: :bouncing4: :cheers: :mrgreen:

[KrasserChecker]

Das mit der Klasse "TTreeNodeEx" war schon ganz richtig.
Jetzt musst Du lediglich noch in dem Ereignis "OnCreateNodeClass" des Treeviews diese Klasse zurückliefern:

Delphi-Quellcode:

procedure TForm1.TreeView1CreateNodeClass(Sender: TCustomTreeView;
  var NodeClass: TTreeNodeClass);
begin
  NodeClass  := TTreeNodeEx;
end;

Wann immer Du jetzt einen Node anspricht einfach per "Typecast" ansprechen:

Delphi-Quellcode:

...
(Node as TTreeNodeEx).GroupID := ...;
...

[Waldteufel]

Hi.

TTreeNode hat eine Property "Data" (ein Pointer). Lass ihn einfach auf die GroupID zeigen... ;-)

[Robert_G]

Zitat:

Zitat von Waldteufel

Hi.

TTreeNode hat eine Property "Data" (ein Pointer). Lass ihn einfach auf die GroupID zeigen... ;-)

Pfui deivel... ;)

Unser KrasserChecker hat hier schon recht. ;)

@Grendel
Krass :shock: *kopf schüttel*
Vor allem wenn man bedenkt, dass man sich schon durchlesen sollte was man da ändert. ;)

Zitat:

Wir haben jedenfalls keine andere Möglichkeit gefunden

:gruebel:

[Waldteufel]

Hi.

Zitat:

Zitat von Robert_G

Zitat:

Zitat von Waldteufel

Hi.

TTreeNode hat eine Property "Data" (ein Pointer). Lass ihn einfach auf die GroupID zeigen... ;-)

Pfui deivel... ;)

Unser KrasserChecker hat hier schon recht. ;)

Wieso ist das "pfui deivel"?
Lieber Data zu ^Word casten als den Knoten nach TTreeNodeEx... ;-)

[phXql]

Zitat:

Zitat von Waldteufel

Hi.

Zitat:

Zitat von Robert_G

Zitat:

Zitat von Waldteufel

Hi.

TTreeNode hat eine Property "Data" (ein Pointer). Lass ihn einfach auf die GroupID zeigen... ;-)

Pfui deivel... ;)

Unser KrasserChecker hat hier schon recht. ;)

Wieso ist das "pfui deivel"?
Lieber Data zu ^Word casten als den Knoten nach TTreeNodeEx... ;-)

das mit der klasse is aber mehr im sinne von OOP. Ich würds allerdings auch mit nem Pointer auf die GroupID machen ;)

[alcaeus]

Moin allerseits,

wenn ich mich nicht irre, dann könnte man ab D2005 auch class helpers dafür verwenden. Obwohl diese laut Borland nur für Delphi .NET funktionieren, laufen sie auch unter Win32. Evtl. könntest du damit was erreichen ;)

Greetz
alcaeus