Список VirtualThreeView

Обработать OnClick записи

TV.Selected.Text

Ок. Пасиба. Это знали.

VirtualDrawTree - тут как это сделать?

Это компонент не стандартный. Там все записи в виде грида создаются. Может кто юзал?

Я вот сегодня затеял свой DBTreeView нарисовать... Немного измочалил себе мозг с TDataLink... Видимо, нужно принять изрядно пива, проспаться и взяться за работу с немного иной позиции...

procedure TForm1.VirtualStringTree1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
TV : PVirtualNode;
begin
if not (Button = mbRight) then exit;
TV := VirtualStringTree1.GetNodeAt(X,Y);
if TV = nil then exit;
// now TV points right to the node, which was clicked at.
end;

procedure TForm1.VTChange(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
NodeData: PItemNode;
begin
if Assigned(Node) then
begin
NodeData:=VT.GetNodeData(Node);
Label1.Caption:=NodeData.Name;
end;
end;

Вобщем сделал так..