delphi中TreeView1控件怎么在每个节点上写事件啊
delphi中TreeView1控件怎么在每个节点上写事件啊
onclick嘛
OnClick事件，通过level控件是哪个层节点被点了
例： case treeview1.Selected.Level of
0:
1:
2:
end;
单击ＯｎＣｌｉｃｋ 展开ＯｎＥｘｐａｎｄｉｎｇ
单击事件
var
vNode: TTreeNode;
begin
vNode := TreeView1.Selected;
//然后写吧！
treeview的很多事件都是可以针对节点操作的,不知楼主想要什么事件
最常用的,OnChangeNode,OnExpanding
我的意思是对每个添加的节点都写代码 可惜写不了 双击 出现添加节点的框 无法写代码 很郁闷
没明白你的意思,每个节点都写代码?,你可以在节点的data属性中保存该节点的唯一ID,单击的时候判断该ID,再做出相应的操作
我说的好无助
比如TreeView1上 添加了2个一级节点 第一个名字为0 第2个是一 我想单击0 执行事件 单击1不执行
所有节点对于同一种操作，都响应同一个事件
需要在事件方法里根据参数判断被操作的是哪一个、哪一级的节点，再决定不同的反应
加个判断就可以了
if TreeView1.Selected.Text <>'1' then
showmessage(TreeView1.Selected.Text);
相关问答：
delphi如何向Access数据表中自定义字段?然后显示到DBGrid中
怎么没人理我呀
分分忒少咧，一般人都懒得进来……*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
这个是拦截按键消息并测试是否为ENTER键。
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
const
WM_REFRESH_USERS = WM_USER + 330;
type
TRefreshParam = (rpRefreshAll, rpAppendItem, rpDeleteItem);
PCmdRec = ^TCmdRec;
TCmdRec = record
&nbs ......
如何用数组跟for打印出下面的图形
*
**
***
****
如果有更好的方法最好也写上 XX
procedure TForm1.Button2Click(Sender: TObject);
var
arr: array of Integer;
i,j: I ......
我对delphi不大熟悉， 但网络上delphi的代码多，BCB的少，想照着delphi的代码改称BCB的，但遇到一些额问题不知怎么转为ＢＣＢ。 下面是摘录一些简短的。
(1)
type
IXMLDOMImplement ......
