如何让TreeView一直处于展开的状态??

gaofi 2003-08-28 11:15:18
我刷新过后它就收起来了,请指教,谢谢!!!
...全文
190 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
gaofi 2003-08-28
  • 打赏
  • 举报
回复
感谢各位,问题解决!
lxpbuaa 2003-08-28
  • 打赏
  • 举报
回复
procedure TForm1.FormCreate(Sender: TObject);
begin
TreeView1.FullExpand;
end;

procedure TForm1.TreeView1Collapsing(Sender: TObject; Node: TTreeNode;
var AllowCollapse: Boolean);
begin
AllowCollapse := False;
end;

————————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
things 2003-08-28
  • 打赏
  • 举报
回复
TreeView1.FullExpand;
IORILI 2003-08-28
  • 打赏
  • 举报
回复
treeview2.FullExpand;
fengjn 2003-08-28
  • 打赏
  • 举报
回复
var
i: integer;
begin
for i:= 0 to treeview1.Items.Count - 1 do
treeview1.Items[i].Expand(true);
end;

5,927

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧