1、Tcombobox右边的三角符号在没有获得焦点的时候,怎么把它隐藏掉,又怎么把他显示出来?
2、TdblookupboBox的下拉选项如何给他带上一个标题?就象是这样的效果:弹出的选项就象是dbgrid的显示效果,有多列,并且还带标题。
第一个问题:
procedure TForm1.ComboBox1Enter(Sender: TObject);
begin
ComboBox1.Style := csDropDownList;
end;
procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
ComboBox1.Style := csSimple
end;
第二个问题:
自己写控件,它包含了一个dbgrid和一个TDataSet控件,在DBLookUp控件的ButtonClick事件中把DBGrid Show出来。当然是连接到了指定的数据库中的一个表。
相信你所看到的这种控件是自己写的,刚好我们用的也是类似的自定义控件。
最好自己写控件,可以参考Enlib.