Question

求救？？？怎样用delphi做一个三级的动态目录树？？

Answer 1

comptable.first;begin treeview1.items.addchild(nil, comptablecompname.asstring); comptable.next;deptable.first;while not deptable.eof dobegin parentnode := findcompnode(deptablecompname.asstring);end; treeview1.items.addchild(parentnode, deptabledepname.asstring); deptable.next;end;while not comptable.eof do...员工也是如斯。

Answer 2

var NewItem:TMenuItem;begin NewItem := TMenuItem.Create(MainMenu); NewItem := TMenuItem.Create(NewItem); NewItem.Caption := '公司'; NewItem.Caption := '部分'; NewItem := TMenuItem.Create(NewItem); NewItem.Caption := '员工';end;