急！！！ 如何完美的解决在Dbgrid(或者DbGridEh)里插入DBCombobox的问题

Question

找遍了所有关于 这个 问题的处理方法,答案好像仅有一个,如下:=================================================
1、在Delphi 4.0中新建一个项目。 2、分别拖动的Data Access组件板上DataSource、Table，Data Controls组件板上DBGrid，DBComboBox四个组件到Form1上。 3、设置各个组件的属性如下：rcf1对象 属性 设定植
Form1 Caption '在DBGrid中插入SpinEdit组件示例'
DataSource1 DataSet Table1
Table1 DatabaseName DBDEMOS
TableName 'teacher.DBF'
Active True
DBGrid1 DataSource DataSource1
DBComboBox1 DataField SEX
DataSource DataSource1
Visible False
Strings Items. '男'| '女'注意：我在这里用了Teacher.dbf，那是反映教职工的性别，只能是“男”或者是“女”。 4、DrawDataCell事件是绘制单元格，当获得焦点网格所对应的字段与组合框所对应的字段一致时，移动组合框到获得焦点的网格上，并且使组合框可视，从而达到在DBGrid指定列上显示DBComboBox的功能。设置DBGrid1的OnDrawDataCell事件如下：procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect; Field: TField; State: TGridDrawState);
begin
 if (gdFocused in State) then
 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.Height := Rect.Bottom - Rect.Top;
     DBComboBox1.Visible := True;
   end;
 end;
end; 5、DBGrid指定单元格未获得焦点时不显示DBComboBox，设置DBGrid1的OnColExit事件如下：
procedure TForm1.DBGrid1ColExit(Sender: TObject);
begin
 If DBGrid1.SelectedField.FieldName = DBComboBox1.DataField then
   begin
     DBComboBox1.Visible := false;
   end;
end; 6、当DBGrid指定列获得焦点时DrawDataCell事件只是绘制单元格，并显示DBComboBox，但是DBComboBox并没有获得焦点，数据的输入还是在单元格上进行。在DBGrid1的KeyPress事件中调用SendMessage这个 Windows API函数将数据输入传输到DBComboBox上，从而达到在DBComboBox上进行数据输入。因此还要设置KeyPress事件如下：procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
 if (key < > chr(9)) then
 begin
   if (DBGrid1.SelectedField.FieldName =DBComboBox1.DataField) then
   begin
     DBComboBox1.SetFocus;
     SendMessage(DBComboBox1.Handle，WM_Char，word(Key)，0);
   end;
 end;
end;   程序在中文Windows 98，Delphi 4.015 下调试通过。希望本文能使你可以更加方便快捷的开发数据库应用程序。 
 ===============================================================
可是这种方法是我发现有问题:
  当插入的位置是DBGrid上的第一个字段的时候, 一开始用鼠标点在DBGrid的第一列上,那个DBCombobox出现不了,只有先用鼠标先点其它字段,再回头点第一个字段 ,DBCombobox才出现 。希望大家想想有没有更好的处理方法。

Answer 1

http://www.delphibbs.com/delphibbs/dispq.asp?lid=3563107　　http://bbs.2ccc.com/topic.asp?topicid=244129　　http://community.csdn.net/Expert/TopicView3.asp?id=5000802　　http://liwei.csdn.net/Forum/topic.aspx?topicid=411　　http://www.liu-yi.net/bbs/showthread.asp?page=end&threadid=147

Answer 2

利用dbgridEH控件中的keylist和picklisk可以满足你的实现,并且所有的下拉控件都是可再编程的,我用过快4年了没有发现一个bug.向你推荐.我的blog:www.0438soft.com.

Answer 3

keylist和picklit 我也很早就熟练掌握,
但是它只能用和下拉状态(比如 : 审核,完成)之类;如果在单据明细Grid上下拉 商品信息,那么就可能有 (商品编号,商品名称 ,商品简称...) ,这个下拉信息最好放在另一个Grid 上 .而且这个Grid能支持 过滤,排序,便于快速找到记录.如果用 keylist和picklist ,那么你只能 把keylist 设置成 商品编号 ,把 picklist  设置成 商品名称 .如果记录很多 ,比如上万个商品, picklist 下拉 显示的 就是 一万多个 商品名称 ,不能过滤,而且如果操作员想根据 商品编号 识别信息也不行; 另外,这个 下拉的商品信息  是在一个数据集上, 你还要写程序把这些信息插入到 keylist 和 picklist  里.
所以要先实现好的下拉功能,还是需要在DBGrid(DbGridEh)插入其它 控件.