[SOLVED] VST db Click

[Pe3s]

Hello, how do I correct the code so that double-clicking works only on child elements?

Code: Pascal  [Select][+][-]

1. procedure TForm1.VSTDblClick(Sender: TObject);
2. var
3.   Data: PData;
4.   Node: PVirtualNode;
5. begin
6.   Node:= VST.FocusedNode;
7.   if Node <> nil then
8.   begin
9.     Data := VST.GetNodeData(Node);
10.     ShellExecute(Handle, 'open', PChar(Data^.Link), nil, nil, SW_SHOW);
11.   end;
12. end;
13.  

[paweld]

You can use the same function as in case setting icons, which is GetNodeLevel. 

Code: Pascal  [Select][+][-]

1. procedure TForm1.VSTDblClick(Sender: TObject);
2. var
3.   Data: PData;
4.   Node: PVirtualNode;
5. begin
6.   Node:= VST.FocusedNode;
7.   if (Node <> nil) and (VST.GetNodeLevel(Node) > 0) then
8.   begin
9.     Data := VST.GetNodeData(Node);
10.     ShellExecute(Handle, 'open', PChar(Data^.Link), nil, nil, SW_SHOW);
11.   end;
12. end;
13.  

[Pe3s]

@paweld, Thank you