如何在stringgrid里画一个tcombobox,并且使他可以选择?下面的语句还少什么

Question

var rect:TRect;
box:TCombobox;
begin
rect:=stringgrid1.CellRect(1,stringgrid1.Row);
box:=TCombobox.Create(form1);
box.Parent:=stringgrid1;
box.Visible:=true;
box.Left:=Rect.Left;
box.Top:=Rect.Top;
box.Width:=Rect.Right-Rect.Left;
box.Height:=Rect.Bottom-Rect.Top;
box.Items.Add('asd');
box.Items.Add('bbb');
但问题是选择的时候下拉框没有显示出来

Answer 1

你的行的高度不够，所以下拉框显示不出来
你加上一句stringgrid1.DefaultRowHeight :=xx;把行高度设置高一些就可以显示了

Answer 2

stringgrid1的单元格太小，Combobox拉不下来
将Combobox的Parent设为self 即可
box.Parent:=self;不过 得修改其位置 
  box.Left:=Rect.Left + stringgrid1.Left;
  box.Top:=Rect.Top + stringgrid1.Top;