使用API函数：声明 FUNCTION ulong ShowScrollBar(ulong hwnd,ulong wBar,ulong bShow) LIBRARY "user32.dll"调用constant long SB_HORZ = 0constant long SB_VERT = 1con...
分类：
其他好文 时间：
2014-08-01 12:55:51
阅读次数：
161
//获取 TreeView选中的文件路径unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ComCtrls;type...
分类：
其他好文 时间：
2014-08-01 12:54:11
阅读次数：
205
//文件或目录转换成 TreeViewprocedure DirToTreeView(Tree: TTreeView; Directory: string; Root: TTreeNode; IncludeFiles:Boolean);varSearchRec: TSearchRec;ItemTem...
分类：
其他好文 时间：
2014-08-01 12:52:21
阅读次数：
267
在 DragDrop 的时候，滚动 TreeView
当高度不够的时候
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;State: TDragState; var Accept: Boolean);...
分类：
其他好文 时间：
2014-08-01 12:47:01
阅读次数：
225
TreeView修改选中的节点的颜色和背景 TCustomDrawTarget = (dtControl, dtItem, dtSubItem); TCustomDrawStage = (cdPrePaint, cdPostPaint, cdPreErase, cdPostErase); TCust...
分类：
其他好文 时间：
2014-08-01 10:33:01
阅读次数：
651
function ItemExist(Text:string;TreeView:TTreeView):Boolean;var i: Integer;begin Result:=False; if (Trim(Text)'') then begin for i := 0 to TreeView.Ite...
分类：
其他好文 时间：
2014-07-29 21:41:52
阅读次数：
252
procedure TForm1.TreeView1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);var Node: TTreeNode;begin with TreeView1 do begin Node := GetN...
分类：
移动开发 时间：
2014-07-29 21:40:42
阅读次数：
393
TreeView节点拖拉操作1 //事先设置 TreeView1.DragMode= dmAutomatic; unitUnit1; interface uses Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms, ...
分类：
其他好文 时间：
2014-07-29 21:38:52
阅读次数：
245
//这个拖拽的感觉不对
unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,ComCtrls;typeTForm1 = class(TForm)TreeVie...
分类：
其他好文 时间：
2014-07-29 21:37:23
阅读次数：
227
添加项目
TreeView1.Items.Add(nil,'ABC'); 删除选中的节点
TreeView1.Selected.Delete; 删除鼠标右键选中的节点 var node1:TTreeNode; procedureTForm1.TreeView1MouseMove(Sender:TOb...
分类：
其他好文 时间：
2014-07-29 21:33:43
阅读次数：
222
