请问Delphi有树形控件吗?
怎样使用?
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有,csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView
网上搜一下,资料一大堆
treeview。要实例的网上很多,关于数据库的也有。
可以考虑使用virtual treeview.这个东东比较复杂,但功能非常强大。不过你是初次使用,习惯就好了。
要引用些什么包?
要不要下载些什么插件?
直接往上拖就是了
treeview是标准控件
virtual treeview是第三方控件,但是免费开源的
dev cxTreeList,更强大。
procedure TForm1.FormCreate(Sender: TObject);
var
Nodes: TTreeNodes;
node: TTreeNode;
begin
TreeView1.Align := alLeft;
Nodes := TreeView1.Items;
node := Nodes.Add(nil, 'aaa');
node := Nodes.AddChild(node, '111');
node := Nodes.AddChild(node, 'AAA');
node := Nodes.AddChild(node, 'BBB');
Nodes.Add(node, 'CCC');
Nodes.Add(node, 'DDD');
Nodes.Add(node, 'EEE');
node := node.Parent;
Nodes.Add(node, '222');
Nodes.Add(node, '333');
node := node.Parent;
Nodes.Add(node, 'WWW');
Nodes.Add(node, 'QQQ');
node := node.Parent;
Nodes.Add(node, 'LLL');
end;
自己在DELPHI下试一下
同意楼上
相关问答:
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
这个是拦截按键消息并测试是否为ENTER键。
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
我写了个小程序,上面添加了一个shockwaveflash控件,然后在movie里写入swf文件的路径,然后执行没有问题。
当我把这个程序转移到另一台电脑执行时, shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
用DEDE打开一个DLL,找到需要的函数了,但是显示的都是汇编代码,看不懂,恳请高手驻足帮忙啊!
是一个KEYPRESS响应函数,功能是在按下enter后判断输入的字符,我想按照自己的需求跳转,但是
找不到位置,高手 ......