TreeView

[Pseudemys Nelsoni]

moin,

weiss ganz und gar nicht wie die kompo funzt...z.b wenn ich ein bestimmtes item in einem unterverzeichnis mrkiert hab...wie reagier ich darauf?

gruss mario

[APP]

Hallo,
bei mir ist es schon lange her, daß ich die Kompo benötigte (ich verwende lieber den VirtualTreeview von Mike Lischke unter MPL-Lizenz) , daher kann ich dir nicht direkt helfen, allerdings gibt es unter http://users.iafrica.com/d/da/dart/z.../TreeView.html das IMHO beste Tutorial für Treeviews.

[Specialwork]

Hallo Silent,

Verwende dazu das Ereignis TTreeView.OnChange

Delphi-Quellcode:

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var NewItem: TListItem;
begin
  ListView1.Items.BeginUpdate;
  ListView1.Items.Clear;

  NewItem:=ListView1.Items.Add;
  NewItem.ImageIndex:=Node.ImageIndex;
  NewItem.Caption:=inttostr(Node.Index);
  NewItem.SubItems.Add(Node.Text);

  ListView1.Items.EndUpdate;
end;

Im Anhang findest Du eine Bieispielanwendung

Gruß, Tom

[Pseudemys Nelsoni]

hoi,

danke für die antworten.

Verstehe nur nicht, wie ich wenn ich links ein bestimmtes item(name z.b "test") markiert hab, im memo ein bestimmter text geaddet wird

gruss silent

[Specialwork]

Hallo Silent

Versuch mal folgendes:

Delphi-Quellcode:

Memo1.Lines.BeginUpdate;
Memo1.Lines.Add(Node.Text);
Memo1.Lines.EndUpdate;

PS: Wenn Deine Frage sich auf mein Beispiel bezieht: Die Komponente auf der rechten Seite ist kein TMemo sondern eine TListView.

BSP: Hinzufügen von Items in eine Listview

Delphi-Quellcode:

procedure AddNewListViewItem(Caption: String);
var NewItem: TListItem;
begin
  ListView1.Items.BeginUpdate;
  NewItem:=ListView1.Items.Add;
  NewItem.Caption:='Bezeichnung';
  // {oder} NewItem.Caption:=Caption; 
  NewItem.ImageIndex:=1;
  ListView1.Items.BeginUpdate;
end;

Gruß, Tom

[Pseudemys Nelsoni]

ow man, das ist zu schwer (für mich )

sagen wir mal mein treeview sieht so aus:

1 Hauptverzeichnis
1.1 Unterverzeichnis
1.1.1 Unterverzwichnis

wenn ich nun das item "1.1.1 Unterverzeichnis" markiere, soll in memo1 kommen "jo" (nur so als test, dann versteh ichs schon)

danke

gruss mario

[Daniel B]

Hallo Silent,

stell Dir doch einfach mal ein TreeView aufs Formular, dann machst Du ein Item, zu dem noch ein SubItem und zu dem noch ein SubItem. Dann machst Du ein Doppelklick auf den TV und in der OnClick-Prozedur die angelegt wird, schreibst Du dann folgendes:

Delphi-Quellcode:

procedure TForm1.TreeView1Click(Sender: TObject);
begin
  ShowMessage(TreeView1.Selected.Text);
end;

Grüsse, Daniel

[Pseudemys Nelsoni]

vielen dank

[Christian Seehase]

Moin Mario,

Du könntest jedem TreeNode in der Eigenschaft Data eine eindeutige ID mitgeben, um genau feststellen zu können welcher TreeNode angeklickt wurde.

Setzen ginge z.B. so:

TreeView1.Items[1].Data := Pointer(1); und die ID wieder auslesen so:

tnID := integer(TreeView1.Selected.Data); Da Data vom Typ Pointer ist, ist allerdings in beiden Fällen ein Typecast erforderlich. (deshalb Pointer(..) und integer(..))

[Luckie]

An die blinden Moderatoren Daniel und Christian: Wir haben eine extra Sparte nur für Komponenten*.

Und dahin wird das jetzt auch verschoben: *schieb* drück* *zehr* *willstduwohl*.

*) Nicht böse sein. War nur als Aufhänger gedacht, dass es in der falschen Sparte stand und ich es verschoben habe.