tvirtualstringtree

3热度

1回答

我想在单元格文字已完全显示时显示提示。所以，在窗体的OnCreate procedure TForm1.FormCreate(Sender: TObject); begin VirtualStringTree1.HintMode := hmHint; VirtualStringTree1.ShowHint := True; end; 和OnGetHint proced

1热度

1回答

TVirtuailStringTree文字和图像对齐

我在tvirtuailstringtree绘制文本和图像，如onbeforecellpaint事件之后 begin Textrectplace := NewRect; Textrectplace.Left := Textrectplace.Left + 2; Textrectplace.Width := 24; Textrectplace.Height := Data.image.heig

2热度

2回答

TVirtualStringTree ScaleBy Stretch

我试图让VST在其高度和宽度改变时自动调整大小。我没有与其他放置VCL组件的问题，其中一些有像TImage一样的属性“拉伸”，它可以让它们自动调整。 VST保持固定并保持节点高度和列宽度。我看过Header-> hoAutoResize，hoColumnResize。在这个问题上，AutoSizeIndex <> -1不是很有用，因为我需要每列都缩小。我想这就是为什么这些什么都不做。将Aut

0热度

1回答

TVirtualStringTree。如何使用单一确认检查节点及其子节点？

我有一个TVirtualStringTree类型的组件。选项toCheckSupport已启用。与传播检查状态相关的选项也被启用，因为传播是必需的。我想用确认来实现检查节点（“你确定要检查...？”）。不幸的是，如果启用传播选项，则会触发包括子节点在内的事件OnCheck和OnChecking。因此，将消息放入事件过程中会使其反复显示。你有任何想法如何用一次确认来检查一个节点及其子节点吗？我想到

3热度

1回答

如何使TVirtualStringTree按键具有更高的优先级？

我们在工作中得到了一定的搜索表单，最近进行了修改。它的功能是标准搜索表单的功能：在顶部的某些框中输入一些条件，点击搜索按钮，然后在下面的网格中显示结果。但它的功能很丑，而且功能非常有限，所以我的一位同事在离开新工作之前重建了它。现在我正试图完成最后的几个细节。其中一项变化是用更强大的TVirtualStringTree替换旧的TListBox网格。但在这个过程中，它似乎已经破坏了一些东西：在之前

3热度

2回答

如果用户通过标签或通过点击

我如何可以检测如果用户通过tab键或鼠标click进入组件得到一个组件的焦点检测？更新1 其实是关于其根据的方式是越来越集中在一个TVirtualStringTree，它打开一个自定义编辑器集中在一个或另一个列。 UPDATE 2 离店下面的代码。 procedure TForm1.Tree1Click(Sender: TObject); var Tree: TVirtualStri

3热度

1回答

TVirtualStringTree - 如何在点击选定行的任何区域时启用拖动？

我有一个VST toFullRowSelect（有几列）。我想启用在节点上拖动&拖放。问题是只有直接点击节点标题才能开始拖动节点。如果点击是在行选择上进行的，但不是在节点标题上进行的，则拖动操作不会启动，并且OnDragAllowed不会启动。的MCVE很简单。在窗体上放置一个TVirtualStringTree（命名为VST），并为VST添加OnCreate和OnDragAllowed： p

5热度

2回答

如何在TVirtualStringTree的列中显示图标或图像？

在Delphi VCL项目中，我创建了一个带有两列的简单TVirtualStringTree。第一列将包含识别所代表数据的文本。数据记录还包含一个状态字段。第二列旨在表示使用图像（16x16像素）不带文本的记录状态。我已经搜索了演示，但还没有掌握VTV如何显示节点的完整过程，并且没有成功获取图标以显示在指定列的节点中。所以我有三个相关的问题：我看到的文字是如何在OnGetText事件分配的，

-1热度

1回答

VirtualStringTree - 如何让这个节点根本就没有父母

我试图节点移动到树的根，使他们没有父母 Tree.MoveTo(LNodes[i], nil, amAddChildFirst, False); 但他们简单地删除！如何使节点根本没有父节点？

1热度

1回答

图标在TVirtualStringTree涂上例外

这是非常小的项目来重现问题（VirtualStringTree版本6.5）： type TForm1 = class(TForm) vstTest: TVirtualStringTree; Images: TImageList; procedure FormCreate(Sender: TObject); procedure vstTestGetT