教如何在TreeView treenode中嵌入comboBox 教如何在TreeView treenode中嵌入comboBox 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 有这样用法????????是CHECKBOX吧,没见有这样用下拉的。 貌似不是很难啊?莫非你还有其他高要求?============================================================================type TformMain = class(TForm) TreeView1: TTreeView; procedure TreeView1Exit(Sender: TObject); procedure TreeView1Change(Sender: TObject; Node: TTreeNode); procedure FormCreate(Sender: TObject); private tmpCmbBox: TComboBox; public end;var formMain: TformMain;implementation{$R *.dfm}procedure TformMain.FormCreate(Sender: TObject);begin tmpCmbBox := TComboBox.Create(Self); tmpCmbBox.Parent := TreeView1; tmpCmbBox.Visible := False;end;procedure TformMain.TreeView1Change(Sender: TObject; Node: TTreeNode);begin if TreeView1.Focused then begin tmpCmbBox.Top := Node.DisplayRect(True).Top; tmpCmbBox.Left := Node.DisplayRect(True).Right + 5; tmpCmbBox.Visible := True; end;end; 我试了一下,我要的是第个treenode后都有一个ComboBox,用来显示当前节点所对应的子表数据,并可通过下拉选择数据后刷新当前树 有个控件可以实现的,tree类型的Gride, VirtualTreeView完成这个功能是小菜一碟 VirtualTreeView 中每个节点后的列如何能做到ComboBox下拉 VirtualTreeView 可以作到每一个点都可以选择是edit,combobox,编辑,我看过里面的源码,也改过一点,这个点在获得焦点的情况下,自己可以去加一些东西,比如说节点显示选择日期的控件,很好用 有没有VirtualTreeView加combobox或日期控件或图片的列子? VirtualTreeView的源码包中的示例中有详细的例子,不过个人感觉VirtualTreeView不适合初学者使用 delphi中使用数据库查询时的问题 delphi hide无法隐藏子窗体 有个问题,给个思路 一个低级问题:fastreport 怎样取参数 如何使用WordApplication和WordDocument组件? 为什么Button控件会自动消失? 一个小问题,解决给分 有没有办法在调试的时候,让捕获错误的功能起作用? 求救:一个简单问题 象SQL SERVER 查询分析器中的 隐藏/显示对象那样的按钮是怎么做的! 判断鼠标是否单击的函数是什么 用TIdHTTP控件经常出错,请高手看看
============================================================================type
TformMain = class(TForm)
TreeView1: TTreeView;
procedure TreeView1Exit(Sender: TObject);
procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
procedure FormCreate(Sender: TObject);
private
tmpCmbBox: TComboBox;
public end;var
formMain: TformMain;implementation{$R *.dfm}procedure TformMain.FormCreate(Sender: TObject);
begin
tmpCmbBox := TComboBox.Create(Self);
tmpCmbBox.Parent := TreeView1;
tmpCmbBox.Visible := False;
end;procedure TformMain.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if TreeView1.Focused then
begin
tmpCmbBox.Top := Node.DisplayRect(True).Top;
tmpCmbBox.Left := Node.DisplayRect(True).Right + 5;
tmpCmbBox.Visible := True;
end;
end;
完成这个功能是小菜一碟