Delphi TTreeView的OnCustomDrawItem事件导致控件运行缓慢求助

API 探路者

2026-5-21

解决Delphi TTreeView OnCustomDrawItem事件导致的性能问题

嘿，我刚好有过类似的Delphi TreeView性能优化经验，针对你把NoteApp的大纲功能集成到TextApp后，TTreeView因OnCustomDrawItem事件导致运行缓慢的问题，给你几个实用的解决思路：

缓存常用字体对象，避免频繁创建销毁
很多开发者会在OnCustomDrawItem事件里每次都新建TFont对象、修改样式后再销毁，这种频繁的内存分配和释放是卡顿的核心原因之一。你可以提前在Form创建时初始化好需要的字体样式，比如普通字体、加粗字体等，存为Form的成员变量，在事件里直接复用：

// 在Form的类声明里添加成员变量
private
  Font_Normal: TFont;
  Font_Bold: TFont;
// FormCreate中初始化字体
procedure TForm_Main.FormCreate(Sender: TObject);
begin
  Font_Normal := TFont.Create;
  Font_Normal.Name := 'Segoe UI';
  Font_Normal.Size := 9;

  Font_Bold := TFont.Create;
  Font_Bold.Assign(Font_Normal);
  Font_Bold.Style := [fsBold];
end;
// FormDestroy中释放字体
procedure TForm_Main.FormDestroy(Sender: TObject);
begin
  Font_Normal.Free;
  Font_Bold.Free;
end;
// OnCustomDrawItem中直接复用缓存的字体
procedure TForm_Main.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if 你的字体判断条件 then
    Sender.Canvas.Font := Font_Bold
  else
    Sender.Canvas.Font := Font_Normal;
  // 其他绘制逻辑...
end;

提前计算样式信息，避免事件内复杂逻辑
如果你的字体修改逻辑依赖于节点的某些业务数据（比如是否是重要笔记、是否未读等），不要在OnCustomDrawItem事件里实时查询或计算这些数据。建议在添加/更新节点时，把样式信息（比如是否加粗、是否变色）存储到节点的Data属性中，事件里直接读取判断：

// 定义存储样式的记录
type
  TNodeStyleInfo = record
    IsBold: Boolean;
    FontColor: TColor;
  end;
// 添加节点时赋值样式信息
procedure AddNoteNode(ParentNode: TTreeNode; const NoteText: string; IsBold: Boolean);
var
  NewNode: TTreeNode;
  StyleInfo: ^TNodeStyleInfo;
begin
  New(StyleInfo);
  StyleInfo^.IsBold := IsBold;
  StyleInfo^.FontColor := clBlack;

  NewNode := TreeView1.Items.AddChildObject(ParentNode, NoteText, StyleInfo);
end;
// OnCustomDrawItem中直接读取Data里的样式
procedure TForm_Main.TreeView1CustomDrawItem(Sender: TCustomTreeView;
  Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean);
var
  StyleInfo: ^TNodeStyleInfo;
begin
  StyleInfo := Node.Data;
  if Assigned(StyleInfo) then
  begin
    if StyleInfo^.IsBold then
      Sender.Canvas.Font := Font_Bold
    else
      Sender.Canvas.Font := Font_Normal;
    Sender.Canvas.Font.Color := StyleInfo^.FontColor;
  end;
end;

注意：记得在删除节点时释放Data指向的内存，避免内存泄漏。

开启DoubleBuffered减少重绘开销
Delphi的TTreeView默认没有开启双缓冲，开启后可以有效减少重绘时的闪烁和性能消耗。你可以在设计时把TreeView的DoubleBuffered属性设为True，或者在FormCreate中通过代码设置：
```
TreeView1.DoubleBuffered := True;
```
批量操作时禁用重绘
如果需要批量添加、修改或删除TreeView节点，记得先调用TreeView1.BeginUpdate;，操作完成后再调用TreeView1.EndUpdate;。这样可以避免每操作一个节点就触发一次重绘，大幅提升批量操作的性能。
考虑替换为虚拟TreeView控件（可选）
如果你的TreeView节点数量非常多（比如几千甚至上万条），即使做了上述优化，原生TTreeView的性能可能还是不够。这时可以考虑使用第三方虚拟TreeView控件，这类控件只绘制可见区域的节点，内存占用和重绘性能都会有质的提升，非常适合大纲类笔记这种节点数量多的场景。

先从缓存字体和简化事件逻辑这两点入手，这是最常见的卡顿原因，一般都能解决你的问题。如果节点数量特别庞大，虚拟TreeView会是更彻底的解决方案。

内容的提问来源于stack exchange，提问作者blackcanopus