J jinmen Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-22 #2 procedure Form1.TreeView1Change(Sender: TObject; Node: TTreeNode); begin case MainTreeView.Selected.Index of 0:...; //该值在编辑器中设置 1:...; ... end; end;
procedure Form1.TreeView1Change(Sender: TObject; Node: TTreeNode); begin case MainTreeView.Selected.Index of 0:...; //该值在编辑器中设置 1:...; ... end; end;
N naughtboy Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-22 #3 我估计你要两层的菜单,类似于 文件 -新建 -打开 -保存 编辑 -剪切 -复制 这样的,所以用这个更容易理解 procedure Form1.TreeView1Change(Sender: TObject; Node: TTreeNode); begin if(node.level=1) then begin if(node.text='新建') then ..... else if(node.text='打开') then .... end;
我估计你要两层的菜单,类似于 文件 -新建 -打开 -保存 编辑 -剪切 -复制 这样的,所以用这个更容易理解 procedure Form1.TreeView1Change(Sender: TObject; Node: TTreeNode); begin if(node.level=1) then begin if(node.text='新建') then ..... else if(node.text='打开') then .... end;
C chenxz Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-22 #4 楼上说的对鼠标右键是回出错的,要用TreeView1.GetNodeAt获取到当前鼠标选中的node, 然后再操作。可以在treeview的onmousedown事件中处理。
C cansim Unregistered / Unconfirmed GUEST, unregistred user! 2002-11-22 #5 顺路问问,就是它默认的列表怎么样才能在第一行加上一个 返回的条目?象leapFtp那样