姚明裸體跪求一段TreeView的代碼

ZXYSOSO 2004-08-30 03:23:28
這是一棵樹Tree
Root
|--aaa
|--bbb--bbb1
--bbb2
--bbb3
|--ccc
|--ddd--ddd1
--ddd2
|--eee--eee1
--eee3
--eee4
--eee5

這是一個ListBox1
| aaa |
| bbb |
| ccc |
| ddd |
| eee |

我的要求是這樣的:
當我移動ListBox1的Item時,Tree中節點(aaa,bbb,ccc,ddd,eee...)對應的要選中,即是反白的方式

如我選中ListBox1中的ddd,那Tree中的節點ddd就被選中為反白;如我選中ListBox1中的aaa,那Tree中的節點aa就被選中為反白;
...全文
208 9 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
ly_liuyang 2004-08-30
  • 打赏
  • 举报
回复
都说完了,
没话说了
楚人无衣 2004-08-30
  • 打赏
  • 举报
回复
帮你改一下:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
str: string;
begin
TreeView1.HideSelection := False;
for i := 0 to ListBox1.Items.Count - 1 do
if ListBox1.Selected[i] then str := ListBox1.Items.Strings[i];
for i := 0 to TreeView1.Items.Count - 1 do
with TreeView1.Items.Item[i] do
if (Level = 0) and (Text = str) then.Selected := True;
end;
lfslfs5367 2004-08-30
  • 打赏
  • 举报
回复
那就加个判断!!!
ZXYSOSO 2004-08-30
  • 打赏
  • 举报
回复
因我的Tree只是會找第1層,即是Tree中節點(aaa,bbb,ccc,ddd,eee...),所以我不希望循環所有的節點,


所以,你們的代碼可否改一下
luke5678 2004-08-30
  • 打赏
  • 举报
回复
哈哈...
myling 2004-08-30
  • 打赏
  • 举报
回复
姚明惹谁了?
luke5678 2004-08-30
  • 打赏
  • 举报
回复
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
str: string;
begin
TreeView1.HideSelection := False;
for i := 0 to ListBox1.Items.Count - 1 do
begin
if ListBox1.Selected[i] then
str := ListBox1.Items.Strings[i];
end;
for i := 0 to TreeView1.Items.Count - 1 do
begin
if TreeView1.Items.Item[i].Text = str then
TreeView1.Items.Item[i].Selected := True;
end;
end;
ihihonline 2004-08-30
  • 打赏
  • 举报
回复
参考



{----------------TreeView Option ---------------------------}
function TreeAddItem(Sender: TTreeView; ItemList: TStrings;
Bookmark: TBookmark; Resort: Boolean): TTreeNode;
var
ThisNode, Node: TTreeNode;
I: Integer;
begin
Node := nil; //nil = level 0 has no parent node
//this is checked by TreeFindItem
for I := 0 to Itemlist.count -1 do
begin
ThisNode := TreeFindItem(Sender, node, Itemlist[i]);
if ThisNode <> nil then Node := ThisNode else
begin
if I < Itemlist.count -1 then
begin
if I = 0 then
Node := Sender.items.Add(Node, Itemlist[i]) else
Node := Sender.items.AddChild(Node, Itemlist[i]);
end else
begin
if I = 0 then
Node := Sender.items.AddObject(Node, Itemlist[i], Bookmark) else
Node := Sender.items.AddChildObject(Node, Itemlist[i], Bookmark);
end;
Node.stateIndex := Node.level + 1;
if Resort and (Node.parent <> nil) then
Node.parent.alphasort;
end;
end;
Result := Node;
end;

function TreeFindItem(Sender: TTreeView; NodeItem: TTreeNode;
Name: String): TTreeNode;
begin
if NodeItem = nil then
NodeItem := Sender.items.getfirstnode else
NodeItem := NodeItem.getfirstchild;
//NodeItem is now the first item of the desired level
//if this level has no items, NodeItem is nil

if (NodeItem <> nil) and (NodeItem.text <> Name) then
Repeat
NodeItem := NodeItem.getnextsibling;
Until (NodeItem = nil) or (NodeItem.text = Name);
Result := NodeItem;
end;

function TreeGetItem(Sender: TTreeView; ItemList: TStrings): TTreeNode;
begin
Result := TreeAddItem(Sender, Itemlist, nil, false);
end;

procedure TreeDeleteItem(Sender: TTreeView; ItemList: TStrings; Level: Integer);
var
Node, Parent: TTreeNode;
begin
Node := TreeGetItem(Sender, ItemList);
while Node.level >= Level do
begin
Parent := Node.parent;
Node.delete;
if (Parent = nil) or (Parent.hasChildren) then break;
Node := Parent;
end;
end;
luke5678 2004-08-30
  • 打赏
  • 举报
回复
穿上衣服站着说好了

5,927

社区成员

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

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