Ich gehe mal davon aus, dass Du ein paar Zeilen mit VirtualTreeView erzeugt hast.
Mehrzeilig geht dann so:
Delphi-Quellcode:
procedure TMeinVST.OnInitNode(
Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode;
var InitialStates: TVirtualNodeInitStates);
begin
Include(InitialStates, ivsMultiline);
end;
procedure TMeinVST.OnGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: WideString);
begin
Celltext := 'Zeile 1'+#13#10+'Zeile 2';
end;
procedure TMeinVST.OnMeasureItem(
Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode;
var NodeHeight: Integer);
begin
NodeHeight := meinVST.ComputeNodeHeight(TargetCanvas, Node, 0)+5;
end;
procedure TForm1.OnButtonClick(Sender : TObject);
begin
meinVst.RootNodeCount := 5;
end;