[Delphi]VirtualTreeview使用说明 文档.docxVIP

单元格纵向位置及单元格高度 procedure TForm1.VST1InitNode(Sender: TBaseVirtualTree; ParentNode, Node: PVirtualNode; var InitialStates: TVirtualNodeInitStates); begin Node := 20; //纵向位置 Sender.NodeHeight[Node] := 20; //单元格高度 end; 动态调整列宽度 procedure TForm1.VST1Resize(Sender: TObject); begin VST1.Header.Columns[1].Width := VST1.Width - VST1.Header.Columns[1].Left - 25; end; 单元格字体 procedure TPropertiesForm.VST3PaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType); var Data: PPropertyData; begin // Make the root nodes underlined and draw changed nodes in bold style. if Node.Parent = Sender.RootNode then TargetCanvas.Font.Style := [fsUnderline] else begin Data := Sender.GetNodeData(Node); if Data.Changed then TargetCanvas.Font.Style := [fsBold] else TargetCanvas.Font.Style := []; end; end; 单元格颜色 procedure TGridForm.VST5BeforeCellPaint(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect); begin // Fill random cells with our own background, but dont touch the currently focused cell. if Assigned(Node) and ((Column Sender.FocusedColumn) or (Node Sender.FocusedNode)) and ((Column - 2) = (Integer(Node.Index) mod (Sender.Header.Columns.Count - 1))) then begin TargetCanvas.Brush.Color := $E0E0E0; TargetCanvas.FillRect(CellRect); end; end; 隐藏行 VST1.IterateSubtree(nil, HideNodes, Pointer(ItemIndex), [], True); procedure TVisibilityForm.HideNodes(Sender: TBaseVirtualTree; Node: PVirtualNode; Data: Pointer; var Abort: Boolean); begin Sender.IsVisible[Node] := False; end; 单元格编辑 调用Editors单元 消息处理函数 const WM_STARTEDITING = WM_USER + 2000; //消息处理函数 procedure TForm1.WMStartEditing(var Message: TMessage); var Node: PVirtualNode; Sender: TBaseVirtualTree; begin Sender := TBaseVirtualTree(Message.WParam); //Node := Pointer(Message.WPar