+主窗体
-子窗体
子窗体1
子窗体2
当Treeview1单击子窗体1节点显示出子窗体1窗口后,再关闭这个窗体,点加减号或Treeview1的空白处还是弹出那个窗体,如何屏蔽,当点+-号时不弹出窗体,点空白处也是
-子窗体
子窗体1
子窗体2
当Treeview1单击子窗体1节点显示出子窗体1窗口后,再关闭这个窗体,点加减号或Treeview1的空白处还是弹出那个窗体,如何屏蔽,当点+-号时不弹出窗体,点空白处也是
解决方案 »
- 在Delphi2006即将发布之际,大家来灌灌水,我先来谈点对未来Delphi发展的希望(散分)
- 高分求教!!!顶者有分
- 有关Array 转化为string的问题。flyinwuhan(制怒·三思而后行)进来。
- 如何在Delphi中控制在Word中插入新文档时另起一页?
- 問:Delphi設計報表用什麼好?<在線等-送分>
- 哪里有delphi6 SP2 下载?
- 属性编辑器的问题?
- 一个捆饶了两天的问题,各位有无碰见过,快来see!!!
- 请问.和..算是什么?目录还是文件??
- 如何得一个变量在数组中的位置?
- File not found: 'IdExplicitTLSClientServerBase.dcu'
- 需要短信发送的控件OCX,急!!!
Shift: TShiftState; X, Y: Integer);
var
node: TTreeNode;
begin
if (Button = mbLeft) and (htOnItem in Treeview1.GetHitTestInfoAt( X, Y)) then
begin
node := TreeView1.GetNodeAt(X, Y);
if (node.Text = '子窗体1') then
childform1.show;
end;
end;
t:TTreeNode;
begin
t:=TreeView1.GetNodeAt(x,y);
if (t<>nil) and (not t.HasChildren) then
...弹出窗体吧
end;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
node:TTreeNode;
begin
Node:=treeview1.GetNodeAt(x,y);
if node<>nil then //判断是否选中内容
Node.Selected:=True;
end;