delphi - 如何仅在 TVirtualStringtree 的 header 中显示提示？

Question

我想仅当用户将鼠标移动到 TVirtualStringTree 中的标题上时显示提示，而不是数据节点上。现在我只能显示它数据节点而不是标题，使用以下代码:

procedure TForm1.FormCreate(Sender: TObject);
begin
  VirtualStringTree1.Header.Columns.Add.Text := 'Brand';
  VirtualStringTree1.Header.Columns[0].Width := 100;
  VirtualStringTree1.Header.Columns.Add.Text := 'Model';
  VirtualStringTree1.Header.Columns[1].Width := 100;

  // Set the Hint text
  VirtualStringTree1.Hint := 'Click to sort by Car brand';

  // Show Header
  VirtualStringTree1.Header.Options := VirtualStringTree1.Header.Options + [hoVisible];

  // Enable Hint in Header
  VirtualStringTree1.Header.Options := VirtualStringTree1.Header.Options + [hoShowHint];

  // Disable the Hint in Data nodes
  VirtualStringTree1.ShowHint := False;
end;

使用此代码，无论是在数据节点中还是在标题中，都不会显示任何提示。

如果我设置:

// Enable Hint in Data nodes
VirtualStringTree1.ShowHint := True; 

在这种情况下，即使将 [hoShowHint] 添加到 Header.Options，提示也会显示在数据节点中，但不会显示在 header 中。

如何仅在标题中显示提示，而不在数据节点中显示提示 - 以便用户仅当鼠标悬停在标题上而不是数据节点上时才能看到“单击以按汽车品牌排序”？

Answer 1

要在 TVirtualStringTree(在以下 VST 中)列标题中显示提示:

1. 打开列编辑器后，在编辑器中选择一个列。

2. 在对象检查器中找到Hint属性并输入文本

3. 选择VST后，查找属性Header - Options - hoShowHint并将其设置为true。

4. 选择 VST 后，查找属性 ShowHint 并将其设置为 true。

5. 要在“数据”区域显示提示，请在 Hint 属性中输入提示文本。要不在“数据”区域显示提示，请清除 Hint 属性。

在您的代码中，您缺少输入列标题提示文本的行:

  VirtualStringTree1.Header.Columns[0].Hint := 'Hint for first column header';

其他列也类似。