关于Combobox使用的小问题(50分)

我在DBGrid中放置Combobox用于输入内容。我的代码：
procedure TFrmMain.DBGrid1DblClick(Sender: TObject);
var
Rect:TRect;
begin
if DBGrid1.SelectedIndex=7 then
begin
Rect:=TStringGrid(DBGrid1).CellRect(TStringGrid(DBGrid1).Col,TStringGrid(DBGrid1).Row) ;
if Combobox5.Parent<>DBGrid1 then
Combobox5.Parent:=DBGrid1;
Combobox5.Left:=Rect.Left;
Combobox5.Top:=Rect.Top;
Combobox5.Width:=Rect.Right-Rect.Left;
Combobox5.Height:=Rect.Bottom-Rect.Top;
Combobox5.Visible:=True;
end;
end;
现在的问题是，当我双击DBGrid时，Combobox可见，但是不能下拉Combobox的下拉框，点击无效。请问是我代码什么地方有错误？

你看一下ehgid 有自带一个例子 或者论坛里面找一个也有这种功能，我也是从里面学来

我是想烂了脑壳也没发现问题所在，哪位高手点拨一下啊

这样写不行啦，你不会看一个例子吗，上面还有其它问题了 我也只是copy带码

Combobox的Parent设置为窗体
位置按照DBGrid的位置和
Rect:=TStringGrid(DBGrid1).CellRect(TStringGrid(DBGrid1).Col,TStringGrid(DBGrid1).Row) ;
来确定

这个现象的原因是Combobox只显示在单元格中，包括下拉菜单，导致下拉菜单看不见

多人接受答案了。