如何在DBGRID中加入文本下拉框？(50分)

我曾看过一篇文章有介绍过在DBGRID中加入下拉框，但现在忘记了，望众高手指点？

在TCloumn的PickList属性中添加你要显示的下拉信息

在窗体上放上DBGrid和DBComboBox,DBComboBox.Visible:= False;
procedure TForm1.DBGrid1DrawDatacell(Sender:Tobject;Const Rect:TRect;Field;TField;State:TGridDrawState);
begin
if (Field.fieldname=DBComboBox1.dataField)then
begin
dbcombobox1.left:=Rect.left+dbgrid1.left;
dbcombobox1.top:= Rect.top+dbgrid1.top
dbcombobox1.width:= Rect.right-rect.left;
dbcombobox1.visible:=True;
end;
end;

ok,thankyou very much!