请问有谁有COMBOBOX下拉是TREEVIEW的控件源码找中小企业财务软件

记账软件版1楼: 请问有谁有COMBOBOX下拉是TREEVIEW的控件源码？

2楼: r.a.d. treeview
这个东西可以如中小企业财务软件

3楼: 从哪里可以找到呢？

4楼: 我到是有一个把treeview里的结构，按treeview的显示方式显示到combobox列表里的方法。。不过 55555555 我笔记本主版烧了。。。要过几天才能拿回来。。。

5楼: 我也想要一个，等修好了后别忘了也发给我一个，QQ：372199229

6楼: tdxtreeviewedit,devexpree dbtree 里的一个，也有数据敏感组件，用起来还不错

记账软件版7楼: 还有吗？

8楼: 哎机器拿回来了南桥被烧了。。郁闷

procedure TreeToCombobox(TreeItem:TTreeNodes;ListItem:TStrings);
const
b:string=＇＇--＇＇;
MaxCount:integer=20;
var
i,m:integer;
str:string;
begin
try
ListItem.BeginUpdate;
ListItem.Clear;
ListItem.AddObject(＇＇[ 总目录 ]＇＇,nil);
for i:=0 to TreeItem.Count-1 do
begin
str:=＇＇＇＇;
for m:=0 to TreeItem[i].Level-1 do
str:=str+＇＇＇＇;
str:=str+＇＇ |＇＇+b;
str:=str+＇＇[ ＇＇+TreeItem[i].Text+＇＇ ]＇＇;
ListItem.AddObject(str,Tobject(TreeItem[i].Data));
end;
finally
ListItem.EndUpdate;
end;
end;

//如何用：
procedure TForm1.Button1Click(Sender: TObject);
begin
combobox1.ItemIndex:=-1;
TreeToCombobox(treeview1.Items,combobox1.Items);
end;