Работа с Index-ами в TreeView

[artemavd]

Добрый вечер! Разобрался сегодня как же все таки присвоить картинки созданным итемам в TreeView . Теперь мне нужно вот что.

Где-то в программе создается корневой узел так:

var
 Node: TTreeNode;
begin
    Node:=tv1.Items.Add(Nil,sLabel3.Caption);
    Node.SelectedIndex:=0;
    Node.ImageIndex:=0;
    tv1.FullExpand;
end;

все нормально создается и картинка какая надо присваивается. Далее, в программе создаются в ранее созданном корневом узле подузлы так:

var
 Node: TTreeNode;
begin
 Node:=tv1.Items.AddChild(tv1.Items.Item[0],'Новый' +
                                      IntToStr(tv1.Items.Count + 1));
 Node.SelectedIndex:=tv1.Items.Count + 1;
 Node.ImageIndex:=1;
 tv1.FullExpand;
end;

тоже все ништяк создается и присваивается.

Теперь мне нужно вот что: присвоить созданным подузлам номер итема, что в дальнейшем, в самом дереве, я мог обращаться к ним для, например, удаления выбранного узла или дальнейших действий с этим индексом итема. Прошу помощи в реализации этого.

[Аватар]

У TTreeNode есть свойство Data, куда можно засунуть такой номер

var Index: Integer;
...
  Node:=TreeView1.Items.AddObject(Nil,'KKK',Pointer(Index));
  Node:=TreeView1.Items.AddChildObject(Node,'GGG',Pointer(Index));
или
  Node.Data:=Pointer(Index);

Прочитать значение можно так

  Index:=Integer(Node.Data);

Поиск нужного TreeNode по номеру путем перебора

[artemavd]

т.е. так будет присвоен произвольный Index, который я могу указать, добавляемому итему?

[Аватар]

т.е. так будет присвоен произвольный Index

Ну да, любое Integer значение, если это номер, то уникальность его обеспечить не помешает. Можно и указатели на любые объекты засунуть для быстрого доступа к ним с текущего нода

[artemavd]

Как теперь правильно получить только что присвоенный номер индекса, выбрав ветку в дереве?

[Аватар]

procedure TForm.TreeViewChange(Sender: TObject; Node: TTreeNode);
var xNumber: Integer;
begin
  xNumber:=Integer(Node.Data); //индекс выбранного узла
end;

[artemavd]

Что-то немного запутался с этими индексами. Можешь, если не трудно, скинуть пример? Я посмотрю, что и где и делаю не так.

[Аватар]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    Label1: TLabel;
    Button1: TButton;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var Node: TTreeNode;
begin
  {Заполнение TreeView1}
  TreeView1.HideSelection:=False;
  Node:=TreeView1.Items.AddObject(nil,'Узел 1',Pointer(1));
  TreeView1.Items.AddChildObject(Node,'Узел 1.1',Pointer(2));
  TreeView1.Items.AddChildObject(Node,'Узел 1.2',Pointer(3));
  Node:=TreeView1.Items.AddObject(nil,'Узел 2',Pointer(4));
  TreeView1.Items.AddChildObject(Node,'Узел 2.1',Pointer(5));
  TreeView1.Items.AddChildObject(Node,'Узел 2.2',Pointer(6));
  TreeView1.FullExpand;
end;

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  {Отображение номера выделенного узла в Label1}
  if Node=nil then Label1.Caption:='Not Selected'
              else Label1.Caption:=Format('Номер узла = %d',[Integer(Node.Data)]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var Value,i: Integer;
    Node: TTreeNode;
begin
  {Поиск узла по номеру заданному Edit1}
  if not TryStrToInt(Edit1.Text,Value) then Label1.Caption:='Введите целое число'
  else begin
    Node:=nil;
    for i:=0 to TreeView1.Items.Count-1 do
      if Integer(TreeView1.Items.Item[i].Data)=Value then begin
        Node:=TreeView1.Items.Item[i];
        Break;
      end;
    if Node=nil then Label1.Caption:='Узел не найден'
                else TreeView1.Selected:=Node;
  end;
end;

end.