想用一个DBEdit和一个DBGrid组成一个ComboBox.(101分)

  • 主题发起人 主题发起人 kusanagi
  • 开始时间 开始时间
K

kusanagi

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么将DBGrid的Parent设置为Form?
设置为 GetParentForm(self) or ValidParentForm(self)
之后就是不显示出来。:(
 
不明白什么意思
 
有必要吗?
 
Very easy!

DBGrid1.parent:=Form1;


 
var
pt: TPoint;
fm: TCustomForm;

fm := GetParentForm(DBEdit1);
pt := fm.ScreenToClient(DBEdit1.ClientToScreen(Point(0,DBEdit1.ClientHeight)));
DBGrid1.Parent := GetParentForm(DBEdit1);
DBGrid1.SetBounds(pt.x, pt.y, DBGrid1.Width, DBGrid1.Height);
DBGrid1.Visible := True;
 
Thanks eYes
偶想了好久都不知道怎么得到Edit在form中的位置,让我试试。看来分是给你定了。
:P
 
接受答案了.
 
后退
顶部