怎么样实现双击一个node弹出相应的窗口?
解决方案 »
- Delphi程序退出时报错'Access violaction at address in module'
- 如何去除 uses 多余的项目?
- 急!!!!!!
- 救救我吧,关于Fieldbyname('memo').AsString字符串长度问题!!!
- 关于KeyDown的写法……
- 请大家帮忙看一下下面这段程序,为什么老是通不过啊!!
- 哪里有TRzDBDateTimeEdit 控件下载?
- 怎样删除用户通过Edit1.text指定“姓名”的记录
- Delphi中pagecontrol listview显示
- 如何设置INSTALL SHIELD 里的GENERAL OPTION里面的选项呢?
- spcomm读取到ACSCII如何转换成十进制
- 我有D7设计ActiveX组件,为什么只能编译一次?
HT:THitTests;
begin
HT:=TreeView1.GetHitTestInfoAt(ZuoBiao.X,ZuoBiao.Y);
if (htOnItem in HT) then
begin
//创新窗体代码...
end;
end;
begin
if TreeView1.Selected = nil then exit;
if TreeView1.Selected.Text = 'XXX' then
begin
formXXX.show;
end;
end;