如何让TreeView一直处于展开的状态?? 我刷新过后它就收起来了,请指教,谢谢!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var i: integer;begin for i:= 0 to treeview1.Items.Count - 1 do treeview1.Items[i].Expand(true);end; procedure TForm1.FormCreate(Sender: TObject);begin TreeView1.FullExpand;end;procedure TForm1.TreeView1Collapsing(Sender: TObject; Node: TTreeNode; var AllowCollapse: Boolean);begin AllowCollapse := False;end;————————————————————————————————————宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。———————————————————————————————————— 主键选择的问题 获取打印机状态的问题 怎么分模块来设计程序 救命啊:为什么我的电脑一接上硬盘就启动不起来了(通不了电) 怎样利用ADO修改远程数据库的数据? having和where的问题!!!! 如何实现realaudio播放ftp:sizhuo.net/1.rm (紧急求救)DBGrid组件中数据光标的问题 有谁知道哪里有DELPHI5。0下载? 如何在Delphi6下读写注册表? 如何获得datagrid的当前行号 请问Cannot Create File....什么原因造成的?
i: integer;
begin
for i:= 0 to treeview1.Items.Count - 1 do
treeview1.Items[i].Expand(true);
end;
begin
TreeView1.FullExpand;
end;procedure TForm1.TreeView1Collapsing(Sender: TObject; Node: TTreeNode;
var AllowCollapse: Boolean);
begin
AllowCollapse := False;
end;————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————