delphi - 没有节点可见时如何显示我自己的文本

Question

我使用virtualtreeview，并且希望在没有可见节点的情况下向组件中显示差异消息，而不管列如何。

你有什么主意吗？
谢谢。

Answer 1

为OnPaintBackground事件编写一个处理程序。例如：

procedure TForm1.VirtualStringTreePaintBackground(Sender: TBaseVirtualTree;
  TargetCanvas: TCanvas; R: TRect; var Handled: Boolean);
begin
  if Sender.VisibleCount = 0 then
  begin
    Handled := True;
    TargetCanvas.TextOut(10, 10, 'List has no visible nodes.');
  end;
end;

如果您有兴趣在控件为空时显示文本（不仅仅是隐藏其节点时），则可以使用 EmptyListMessage属性。