Делал так:
| Код |
procedure TForm1.WMStartEditing(var Message: TMessage);
var
Node: PVirtualNode;
begin
Node := Pointer(Message.WParam);
aList.EditNode(Node, Message.LParam);
end;
procedure TForm1.aListDblClick(Sender: TObject);
begin
PostMessage(Self.Handle, WM_STARTEDITING,
Integer((Sender as TVirtualStringTree).FocusedNode),
Integer((Sender as TVirtualStringTree).FocusedColumn))
end;
|
Делал через сообщение потому, что иначе, кажется, (делал давно, точно не помню) там получается рекурсия и выскакивает сообщение о переполнении стэка. |
