TreeView - узнать ключ выделенного элемента

[DenProx]

Доброго времени суток. У меня такой вопросик: как узнать ключ выделенного элемента в TreeView ... При условии что сам TreeView заполняется из БД... и нужно узнать ключ именно из неё...

[asmodey1]

А вы этот самый ключ заносите в TreeNode.Data в процессе "TreeView заполняется из БД" ?
Если нет, то выход один - Locate по Selected.Text... но без гарантии, если есть совпадающие значения.

[DenProx]

asmodey1 а как нужно заносить ключ в TreeNode.Data ?

p.s. повторения имеются... точнее предпологается что они будут

если это как то поможет, вот код который заполняет TV из БД:

procedure TForm1.AddNode(ToTree:TTreeNode;ToId:cardinal);
var i:cardinal;
    node:TTreeNode;
begin
  // Проверяем каждую запись в базе
  for i:=1 to NodesCount do
  begin
    // Если родитель равен коду записи, то мы добавляем ее в дерево к этому родителю 
      if nodes[i].parent_id=ToId then
    begin
      // Добавляем запись в дерево
      node:=TreeView1.Items.AddChildObject(ToTree,nodes[i].str,Pointer(nodes[i].id));
      // Запускаем рекурсивно процедуру добавления с параметрами 
      // ToTree=node - только что созданный объект дерева, тоесть к нему бем искать предков
      // ToId=nodes[i].id - будем искать объекты, у которых родитель текущий объект
      AddNode(node,nodes[i].id);
    end;
  end;
end;



procedure TForm1.Button1Click(Sender: TObject);
var i:cardinal;
begin
  TreeView1.Items.Clear;
  // Вначале считаем количество записей
    NodesCount:=ADOQuery1.RecordCount;
  // Задаем размер динамического массива для базы
  setlength(Nodes,NodesCount+1);
  // Загружаем базу в память
  ADOQuery1.First;
  for i:=1 to NodesCount do
  begin
    //Заносим в дерево код услуги, наименование и ссылку на родителя
    Nodes[i].id:=ADOQuery1.FieldValues['Group1'];
    Nodes[i].str:=ADOQuery1.FieldValues['Name'];
    try
    Nodes[i].parent_id:=ADOQuery1.FieldValues['Group2'];
    except
    end;
    ADOQuery1.Next;
  end;
  // Теперь строим дерево
  // Запускаем рекурсивную процедуру с параметром типа:
  // Добавляем в корень (nil) все значения, у которых родитель = 0
  AddNode(nil,0);
  treeview1.Items.CustomSort(nil,0,true);
end;

[DenProx]

Сделал изменения в коде... но проблема теперь в том, что ключ показывается только от последней надписи в TreeView ... т.е. та которая при построении дерева находится самой последней (не путать с последней добавленной в БД)... код такой:

procedure TForm1.AddNode(ToTree:TTreeNode;ToId:cardinal);
var i:cardinal;
    node:TTreeNode;
    p:^cardinal;
begin
  // Проверяем каждую запись в базе
  for i:=1 to NodesCount do
  begin
    // Если родитель равен коду записи, то мы добавляем ее в дерево к этому родителю
      if nodes[i].parent_id=ToId then
    begin
      // Добавляем запись в дерево
      //node:=TreeView1.Items.AddChildObject(ToTree,nodes[i].str,Pointer(nodes[i].id));
      node:=TreeView1.Items.AddChild(ToTree,nodes[i].str);
      p := AllocMem(sizeOf(cardinal));
      p^ := nodes[i].id;
      node.Data := p;
      // Запускаем рекурсивно процедуру добавления с параметрами
      // ToTree=node - только что созданный объект дерева, тоесть к нему бем искать предков
      // ToId=nodes[i].id - будем искать объекты, у которых родитель текущий объект
      AddNode(node,nodes[i].id);
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:cardinal;
begin
  TreeView1.Items.Clear;
  // Вначале считаем количество записей
    NodesCount:=ADOQuery1.RecordCount;
  // Задаем размер динамического массива для базы
  setlength(Nodes,NodesCount+1);
  // Загружаем базу в память
  ADOQuery1.First;
  for i:=1 to NodesCount do
  begin
    //Заносим в дерево код услуги, наименование и ссылку на родителя
    Nodes[i].id:=ADOQuery1.FieldValues['Group1'];
    Nodes[i].str:=ADOQuery1.FieldValues['Name'];
    try
    Nodes[i].parent_id:=ADOQuery1.FieldValues['Group2'];
    except
    end;
    ADOQuery1.Next;
  end;
  // Теперь строим дерево
  // Запускаем рекурсивную процедуру с параметром типа:
  // Добавляем в корень (nil) все значения, у которых родитель = 0
  AddNode(nil,0);
  treeview1.Items.CustomSort(nil,0,true);
end;

procedure TForm1.TreeView1Click(Sender: TObject);
var i, id:cardinal;
begin
// Выводим ключ выделенного узла в Label
 for i := 0 to TreeView1.Items.Count - 1 do
begin
  id := cardinal(TreeView1.Items[i].Data^);
end;
Label1.Caption := IntToStr(id);
end;

Что тут может быть не так?

[evg_m]

procedure TForm1.TreeView1Click(Sender: TObject);
var i, id:cardinal;
begin
// Выводим ключ выделенного узла в Label
i:=TreeView1.ItemIndex;
if i>=0 then begin
id:=cardinal(TreeView1.Items[i].Data^);
Label1.Caption := IntToStr(id);
end
else Label1.Caption := 'текущий узел  не выбран';
end;

[asmodey1]

Можно еще Selected использовать:

if TreeView1.Selected=nil then
Label1.Caption := 'Ничего не выбрано';

Это тот же TreeView1.Items[i]...

[DenProx]

у меня почему то пишет что ItemIndex не объявленная переменная... может модуля какого не хватает в Uses ?

[DenProx]

все оказалось проще... нужно вот так:

// Выводим ключ выделенного узла в Label
  if TreeView1.Selected = nil then
    exit;
  Label1.Caption := inttostr(integer(TreeView1.Selected.Data^));

и все работает) Всем спасибо!)