Virtual TreeView

[Шульц]

Есть на форме компонент типа TVirtualStringTree. Я его заполнил 11 строками со значениями. Вопрос вот в чем.
Как мне узнать какая строка сейчас выделена и какое значение у нее?

[Баламут]

Например так.

type
  TNodeData = record
    st: WideString;
  end;

.............

procedure TForm1.Button1Click(Sender: TObject);
var
  Data: PNodeData;
begin
  Data := Tree1.GetNodeData(Tree1.FocusedNode);
  ShowMessage(Data^.st);
end;

[Шульц]

Я нашел другой способ:

procedure TProgForm.VTModuleChange(Sender: TBaseVirtualTree;
  Node: PVirtualNode);
begin
ModuleEdit.Text:=VTModule.Text[Node,0];
end;

Ведь нет различий?
И еще вопрос, как пройтись по всему дереву, в нем нет родителей или детей, запись за записью, и считать с них информации?

[lexaltd]

Можно так:

type
  PNodeData = ^TNodeData;
  TNodeData = record
    st: WideString;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 Data: PNodeData;
 NewNode : PVirtualNode;
begin
  NewNode := VT.RootNode.FirstChild;
  repeat
   Data := VT.GetNodeData(NewNode);
   if Assigned(Data) then
    ShowMessage(Data^.st); //Выводим информацию
   NewNode := NewNode.NextSibling;
  until  NewNode = nil;
end;

P.S. И вообще - покажи как ты записываеш в TVirtualStringTree данные, тогда будет проще помочь