TTreeview里如何转换打开文件和关闭文件图标? Node->ImageIndex=0和Node->ImageIndex=1来转换,但不行,有什么好的方法吗 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Node->SelectedIndex = 0Node->SelectedIndex = 1 这样可以var node : TreeNode;begin node := Treeview1.Selected; if node<>nil then node.SelectedIndex := 1;end procedure TFormHelp.TreeViewHelpCollapsed(Sender: TObject; Node: TTreeNode);begin TTreeView(Sender).Items.BeginUpdate; Node.ImageIndex := 0; Node.SelectedIndex := 0; TTreeView(Sender).Items.EndUpdate;end;procedure TFormHelp.TreeViewHelpExpanded(Sender: TObject; Node: TTreeNode);begin TTreeView(Sender).Items.BeginUpdate; Node.ImageIndex := 1; Node.SelectedIndex := 1; TTreeView(Sender).Items.EndUpdate;end; 其它你不用去设置SelectedIndex的,它的缺省值为0,所以你只要将打开的图标放在第一个的话就根本不要去设置了! 直接在创建Node的时候指定就可以了。 Node := TreeView1.Add(Node1,'asasas'); Node.ImageIndex := 0; //关闭 Node.SelectedIndex := 1; //打开 同意 liang_z(千山一刀之忍者神龟) ,不用写代码就可以! VCLSKIN不能改变RZGROUPBAR的颜色怎么办? UrlDownloadToFile这个函数存在代理的问题吗? 打印预览时小数23423.33能不能显示为23,423.33 Ttreeview的几个小问题 能否做到:AdOconnection闲时自动断开,需要时自动连接? 2种颜色叠加 怎么算的? 别人结贴了,昨天晚上给我100分,到今天为止我的分值都没变化,为什么???? 请问如何将二进制文件保存进数据库里。大虾虾救救我。 文件格式问题 delphi6.0的数据库登录问题? 软件共享 “50人软件“。
Node->SelectedIndex = 1
var
node : TreeNode;
begin
node := Treeview1.Selected;
if node<>nil then
node.SelectedIndex := 1;
end
Node: TTreeNode);
begin
TTreeView(Sender).Items.BeginUpdate;
Node.ImageIndex := 0;
Node.SelectedIndex := 0;
TTreeView(Sender).Items.EndUpdate;
end;procedure TFormHelp.TreeViewHelpExpanded(Sender: TObject; Node: TTreeNode);
begin
TTreeView(Sender).Items.BeginUpdate;
Node.ImageIndex := 1;
Node.SelectedIndex := 1;
TTreeView(Sender).Items.EndUpdate;
end;
所以你只要将打开的图标放在第一个的话就根本不要去设置了!
Node := TreeView1.Add(Node1,'asasas');
Node.ImageIndex := 0; //关闭
Node.SelectedIndex := 1; //打开