VT(TVirtualDrawTree) проверка на фокус

[MyIE]

Задача: при клике на VT нужно узнать, выделен ли какой-нить элемент, если выделен то ..., если нет, то ничего не делать.

PHP код:

procedure TForm1.VTClick(Sender: TObject);
begin
if VT.Focused then
   ShowMessage('EVENTS! Click!');
end; 


При клике на VT ничего не выводится, так же я хотел попробовать

PHP код:

if VT.Selected then 


но у него такая структура:

PHP код:

Selected: [node: PVirtualNode]: boolean 


Ну и сам вопрос: как реализовать данный алгоритм? (алгоритм см. в начале).

[lexaltd]

Так мы можем узнать индекс выделенного Node(правда не известно есть ли у там дети)

procedure TfrmMain.VTChange(Sender: TBaseVirtualTree; Node: PVirtualNode);
begin
   if VT.Selected[Node] then
  ShowMessage(IntToStr( Node.Index));
end;

Чтоб точно ответить на твой вопрос надо посмотреть как ты в VirtualTree загружаеш данные , и что ты хочеш потом сделать