摘要: procedure TForm2.CSV1Click(Sender: TObject); begin vst.SaveToCSVFile('airports.csv',false); end; 上述代码可以把VST存为CSV文件,第二个参数为TRUE,则存储标题。 但因为存为CSV文件时,源代码中有 阅读全文
posted @ 2023-05-31 16:13 Luo大哥 阅读(48) 评论(0) 推荐(0) 编辑
摘要: 1、树结构的存储 需要进行以下三步 首先,在事件“onsavenode”中写代码,存储节点信息。 property OnSaveNode: TVTSaveNodeEvent; TVTSaveNodeEvent = procedure (Sender: TBaseVirtualTree; Node: 阅读全文
posted @ 2023-05-31 11:29 Luo大哥 阅读(26) 评论(0) 推荐(0) 编辑
摘要: TreeOptions.AutoOptions如果包含了“toAutoSpanColumns” ,且下一栏为空,则本栏被缩减的文本(即文本只显示部分,后面只显示…)会自动扩展显示在下一栏中。 看图示例: 通常情况下,当单元格的宽度不能完全显示字符串内容时,字符串会被截取显示,截取之外的内容显示为“… 阅读全文
posted @ 2023-05-31 11:03 Luo大哥 阅读(54) 评论(0) 推荐(0) 编辑
摘要: VST.sort和vst.sorttree可以对VST进行排序。 procedure Sort(Node: PVirtualNode; Column: TColumnIndex; Direction: TSortDirection; DoInit: Boolean = True); virtual; 阅读全文
posted @ 2023-05-31 10:59 Luo大哥 阅读(46) 评论(0) 推荐(0) 编辑
摘要: VST也支持提示(hint)。 毫无疑问,要让VST支持hint,首先肯定需要设置:SHOWHINT:=TRUE; 其次,还应该设置hintmode。 TVTHintMode = ( hmDefault, hmHint, hmHintAndDefault, hmTooltip ); hmDefaul 阅读全文
posted @ 2023-05-31 08:51 Luo大哥 阅读(30) 评论(0) 推荐(0) 编辑
摘要: 先上编辑器单元的代码: unit editlink; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, VirtualTrees; type tcomb 阅读全文
posted @ 2023-05-31 08:48 Luo大哥 阅读(27) 评论(0) 推荐(0) 编辑
摘要: VST的单元格支持编辑,使用普通的编辑很简单,VST提供了一个编辑器,是一个继承自TCUSTOMEDIT的编辑器。 TStringEditLink = class(TInterfacedObject, IVTEditLink); 1、发出编辑请求 向VST发出编辑请求,有以下三种方式: 第一种方式是 阅读全文
posted @ 2023-05-31 08:44 Luo大哥 阅读(46) 评论(0) 推荐(0) 编辑
摘要: 1、拖拽操作需要用到的单元和函数 在讲拖拽操作之前先讲两个过程(procedure): Moveto procedure MoveTo(Source: PVirtualNode; Target: PVirtualNode; Mode: TVTNodeAttachMode; ChildrenOnly: 阅读全文
posted @ 2023-05-31 08:34 Luo大哥 阅读(40) 评论(0) 推荐(0) 编辑