功能说明：//取得汉字的第一个字母function GetPYIndexChar( hzchar:string):char;begincaseWORD(hzchar[1])shl8+WORD(hzchar[2])of$B0A1..$B0C4 : result:='A';$B0C5..$B2C0 : ...
分类：
其他好文 时间：
2014-08-01 12:52:51
阅读次数：
223
//文件或目录转换成 TreeViewprocedure DirToTreeView(Tree: TTreeView; Directory: string; Root: TTreeNode; IncludeFiles:Boolean);varSearchRec: TSearchRec;ItemTem...
分类：
其他好文 时间：
2014-08-01 12:52:21
阅读次数：
267
数组类型
数组类型定义了一组指定类型的元素序列，在方括号中填入下标值就可访问数组中的元素。定义数组时，方括号也用来指定可能的下标值。例如，下面的代码中定义了一个有 24 个整数的数组：typeDayTemperatures = array [1..24] of Integer;在数组定义时，你需要在...
分类：
其他好文 时间：
2014-08-01 12:49:51
阅读次数：
188
//修改Hint的字体和颜色public{ Public declarations }procedure Sshowhint(var hintstr:string;var canshow:Boolean;var HintInfo:THintInfo);procedure TForm1.FormCre...
分类：
其他好文 时间：
2014-08-01 12:47:51
阅读次数：
281
//在选中的节点中上添加1个节点
procedureTForm1.Button1Click(Sender:TObject); begin withTreeView1do begin Items.AddChild(Selected,'aaa'); end; end; //添加节点
procedureT...
分类：
其他好文 时间：
2014-08-01 12:47:41
阅读次数：
226
在 DragDrop 的时候，滚动 TreeView
当高度不够的时候
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;State: TDragState; var Accept: Boolean);...
分类：
其他好文 时间：
2014-08-01 12:47:01
阅读次数：
225
的属性的事件的方法 //1设置链接类型//2获取样式 链接和提示信息 //title是提示信息//HTTPS https://Hello//FILE file://Hello//FTP ftp:///Hello//HTT...
分类：
其他好文 时间：
2014-08-01 12:43:01
阅读次数：
141
工具栏 的属性xe4的事件
Customizable OnCustomizeCanDelete OnCustomizeCanInsert OnCustomized OnCustomizeAdded OnCustomizeDelete OnCustomizeNewButton OnCustomizeR...
分类：
其他好文 时间：
2014-08-01 10:35:11
阅读次数：
182
Sender和Tag的用法 在它们共同的OnClick事件下返回单击的那个按钮的标题 unit Unit1;interfaceusesWinapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, ...
分类：
其他好文 时间：
2014-08-01 10:33:51
阅读次数：
221
TreeView修改选中的节点的颜色和背景 TCustomDrawTarget = (dtControl, dtItem, dtSubItem); TCustomDrawStage = (cdPrePaint, cdPostPaint, cdPreErase, cdPostErase); TCust...
分类：
其他好文 时间：
2014-08-01 10:33:01
阅读次数：
651
