- 浏览: 58635 次
- 性别:
- 来自: 杭州
最新评论
在 Form1 上拖一个 TreeView 控件,然后参考一下代码:
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus, ComCtrls; type TForm1 = class(TForm) TreeView1: TTreeView; function CreateMenu(pCation: string): TPopupMenu; procedure FormCreate(Sender: TObject); procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} function TForm1.CreateMenu(pCation: string): TPopupMenu; var pPopupMenu:TPopupMenu; pMenu:TMenuItem; i:integer; begin pPopupMenu:=TPopupMenu.Create(self); for i:=0 to 5 do begin pMenu :=TMenuItem.Create(pPopupMenu); pMenu.Caption :=pCation+inttostr(i); pPopupMenu.Items.Add(pMenu); end; result:=pPopupMenu; end; procedure TForm1.FormCreate(Sender: TObject); begin TreeView1.Items.AddObject(nil,’test’,Pointer(CreateMenu(’test’))); TreeView1.Items.AddObject(nil,’xxx’,Pointer(CreateMenu(’xxx’))); TreeView1.Items.AddObject(nil,’ddd’,Pointer(CreateMenu(’ddd’))); TreeView1.Items.AddObject(nil,’ccc’,Pointer(CreateMenu(’ccc’))); end; procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var pNode: TTreeNode; begin if button=mbright then begin pNode :=TreeView1.GetNodeAt(x,y); if (pNode〈〉nil) then TreeView1.PopupMenu :=TPopupMenu(pNode.data); end end; end.
发表评论
-
脚本是在
2009-03-11 19:00 1023大家交 ... -
DELPHI常见事件、常用方法、属性使用范围说明
2008-06-19 22:24 2820属性使用范围说明 Action 一些组件标识与组件相连接的 ... -
DELPHI常见属性说明
2008-06-19 21:37 1506DELPHI常见属性说明: ALI ... -
Delphi中的时间操作技术
2008-06-19 13:45 2675在编写应用程序时,我 ... -
delphi用于时间操作的函数 (2)
2008-06-19 13:44 1697TDateTime类型与字符串型转换函数: DateTime ... -
delphi用于时间操作的函数(1)
2008-06-19 13:43 1336用于时间操作的函数 Date函数: 定义:Date: TDa ... -
数据库表TreeView树的快速生成
2008-06-18 21:57 1947根据数据表的内容生成TreeView树状结构,通常的做法就是从 ... -
Delphi中根据分类数据生成树形结构的最优方法
2008-06-18 21:52 3399新一篇: Delphi程序设计之--惯用法 一、 引言: ... -
我的DBTreeView--TreeView直接连接数据表
2008-06-04 17:34 1028unit Unit1; interface uses ... -
Delphi下Treeview控件基于节点编号的访问
2008-06-04 17:31 1465有时我们需要保存和重建treeview控件,本文提供一种方法, ... -
Delphi中根据分类数据生成树形结构的最优方法
2008-06-04 17:27 1278很多系统都有类似于如下的表结构(table1): ID ... -
TreeView添加子节点和动态生成控件
2008-06-04 14:06 3870有这样一个TreeView,动态分有类A,B,C...(不一定 ... -
一种较简易的树型控件节点构造法
2008-06-03 21:42 956把数据库中的数据在树型控件(TreeView)中正确显示是较为 ... -
Delphi中树型控件的使用技巧
2008-06-03 13:40 1370我们都知道,开发者 ... -
TreeView的使用
2008-06-03 13:09 1303TreeView 是一个显示树型结构的控件,每一个节点都是一个 ... -
在Dephi中使用TStream读写数据的技巧
2008-06-02 13:29 791在Dephi中提供了一个抽 ... -
Delphi环境下灵活的数据库树表实现
2008-06-02 13:27 12221 数据结构设计 在 ...
相关推荐
介绍了很多树控件,功能很强大。有 节点拖拽、在树之间拖拽节点、树线控制、树的图标更改、Checkbox使用、右键菜单编辑、下拉框树等。 使用了技术 ajax动态载入节点、DataTable作为数据源、xml作为数据源。
示例中有树的增删改查操作,支持N层树节点,提供右键菜单。
s001.ZIP 装入整个 C 盘目录到 TreeView(4KB) 73,j006_actresiz.ZIP FORM的大小改变的时候,里面的对象也会跟着放大缩小(附示例原程序)(30KB) 74,j005_TriSpace.ZIP 此控件是一个软件3D引擎,内有...
s001.ZIP 装入整个 C 盘目录到 TreeView(4KB) 73,j006_actresiz.ZIP FORM的大小改变的时候,里面的对象也会跟着放大缩小(附示例原程序)(30KB) 74,j005_TriSpace.ZIP 此控件是一个软件3D引擎,内有...
s001.ZIP 装入整个 C 盘目录到 TreeView(4KB) 73,j006_actresiz.ZIP FORM的大小改变的时候,里面的对象也会跟着放大缩小(附示例原程序)(30KB) 74,j005_TriSpace.ZIP 此控件是一个软件3D引擎,内有...
Coalesys PanelBar + R.a.d Treeview +Xml 构建的Asp.net 菜单和权限管理模块 突破屏蔽限制,自己的网站使劲弹新IE窗口 对页面SCROLLING的CSS不能生效原因 .Net 中IE使用WinForm控件的使用心得。 动态加载用户控件的...
TreeView控件 自绘CTreeView控件。 VC 创建向导模式 VC 精品源码打包下载(解) CatListBox_src.zip CatListBox_demo.zip 这个程序模仿Outlook建立分类列表框。 CClockST_src.zip CClockST_demo.zip 一个简单的...
TreeView控件 自绘CTreeView控件。 VC 创建向导模式 VC 精品源码打包下载(解) CatListBox_src.zip CatListBox_demo.zip 这个程序模仿Outlook建立分类列表框。 CClockST_src.zip CClockST_demo.zip 一个简单的...
内含各种例子(vc下各种控件的使用方法、标题栏与菜单栏、工具栏与状态栏、图标与光标、程序窗口、程序控制、进程与线程、字符串、文件读写操作、文件与文件夹属性操作、文件与文件夹系统操作、系统控制操作、程序...
TreeView控件 自绘CTreeView控件。 VC 创建向导模式 VC 精品源码打包下载(解) CatListBox_src.zip CatListBox_demo.zip 这个程序模仿Outlook建立分类列表框。 CClockST_src.zip CClockST_demo.zip 一个简单的...
TreeView控件 自绘CTreeView控件。 VC 创建向导模式 VC 精品源码打包下载(解) CatListBox_src.zip CatListBox_demo.zip 这个程序模仿Outlook建立分类列表框。 CClockST_src.zip CClockST_demo.zip 一个简单的...
TreeView控件 自绘CTreeView控件。 VC 创建向导模式 VC 精品源码打包下载(解) CatListBox_src.zip CatListBox_demo.zip 这个程序模仿Outlook建立分类列表框。 CClockST_src.zip CClockST_demo.zip 一个简单的...
《C#全能速查宝典》共分为8章,分别介绍了C#语言基础、Windows窗体及常用控件、Windows高级控件、控件公共属性、方法及事件、数据库开发、文件、数据流与注册表、GDI+绘图技术和C#...,每一个知识点都配有具体的示例...