为什么DBGrid显示不出来(50分)

  • 主题发起人 主题发起人 wang2855
  • 开始时间 开始时间
W

wang2855

Unregistered / Unconfirmed
GUEST, unregistred user!
[:(]
Hello:
我想做一个控件就是在DBLookupCombobox的基础上,当单击下拉箭头时能够弹出一个
DBGrid来显示下啦数据表的内容,可是为什么不行呢?
在继承控件的DropDown事件中:
procedure TMyDBLookupCombobox.Dropdown;
var FLookupGrid:TDBGrid
begin
inherited;
if Assigned(ListSource) then
begin
FLookupGrid:=TDBGrid.Create(self);
FLookupgrid.Parent:=Self;
FLookupGrid.DataSource:=ListSource;
FLookupGrid.Left:=Left;
FLookupGrid.Width:=Width;
FLookupGrid.Top:=Top+Height;
FLookupGrid.Height:=1000;
FLookupGrid.Visible:=True;
Invalidate;
end;
end;
 
可能FLookupgrid.Parent:=Self;有问题。
TMyDBLookupCombobox是不是从Twincontrol继承来的?
只有Twincontrol及其后代才能作Parent。
 
当然不队了,你说DBGRID应该是在你控件所在PARENT同一个PARENT,而不是SELF控件自己
flookgrid.parent:=self.parent;
 
接受答案了.
 

Similar threads

I
回复
0
查看
533
import
I
I
回复
0
查看
612
import
I
I
回复
0
查看
654
import
I
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
751
SUNSTONE的Delphi笔记
S
后退
顶部