Erste Schritte mit der Virtual ListView

[Nuclear-Ping]

In OnInitNode musst du noch die Unterstützung für MultiLine setzen.

Delphi-Quellcode:

procedure TDatabaseContentEditor.DatabaseItemsInitNode(
  Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
  var InitialStates: TVirtualNodeInitStates);
begin
  Sender.NodeHeight[Node] := 84;
  if (FCheckSupport) then
    Node.CheckType := ctCheckBox
  else Node.CheckType := ctNone;
  Include(InitialStates, ivsMultiline);
end;