Многострочность в Virtual String Tree

        procedure TAdminForm.VST_rightsInitNode(Sender: TBaseVirtualTree; ParentNode,
                 Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates);
        begin
           // Включаем/выключаем поддержку многострочности
               Include(InitialStates,ivsMultiline);
 
         end;
 
        procedure TAdminForm.VST_rightsMeasureItem(Sender: TBaseVirtualTree;
           TargetCanvas: TCanvas; Node: PVirtualNode; var NodeHeight: Integer);
        begin
        if Sender.MultiLine[Node] then
          begin
            TargetCanvas.Font := Sender.Font;
            NodeHeight := VST_rights.ComputeNodeHeight(TargetCanvas, Node, 0) + 10;
          end;
       end;

interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,  VirtualTrees, Menus,..., Editors, DBAccess, Buttons;
 
const
  WM_STARTEDITING = WM_USER + 778;

procedure WMStartEditing(var Message: TMessage); message WM_STARTEDITING;

procedure TForm1.WMStartEditing(var Message: TMessage);
var
  Node: PVirtualNode;
begin
  Node := Pointer(Message.WParam);
  VirtualStringTree1.EditNode(Node, VirtualStringTree1.FocusedColumn)
end;

procedure TForm1.VirtualStringTree1Editing(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex; 
var Allowed: Boolean);
begin
  Allowed := Column > 0; // все Column начинаются с 1. Эта строка означает, что открываем редактирование для всего дерева
end;

procedure TForm1.VSTFocusChanged(Sender: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex);
begin
  if Sender.FocusedColumn > 0 then
  begin
    MyClass.ValueType := ValueTypes[0, 0]; // ValueTypes[0, 0] взято из Editors.pas. 
                                                             // [0, 0] - означает, что в ячейки просто вводится текст 
 
    if Length(MyClass.Arr[Node.Index]) - 1 >= Sender.FocusedColumn - 1 then
    begin
      MyClass.Value := MyClass.Arr[Node.Index][Sender.FocusedColumn - 1].Value;
      MyClass.ValueId := 0;
    end;
    PostMessage(Self.Handle, WM_STARTEDITING, WPARAM(Node), 0); // <==  вот пример
  end;
end;