我在程序中用代码弹出了DbComboBox的下拉菜单，可是这样做的话，鼠标就不见了，只有再在其它地方点一下鼠标，才又出现，怎么解决？？？

Question

我在程序中用代码弹出了DbComboBox的下拉菜单，
代码如下，在DbComboBox的onchange事件中，加入
  if GetWindowLong(dbcombobox1.handle,gwl_style) and cbs_dropdown=cbs_dropdown then
  begin
    //sendmessage(dbcombobox1.handle,CB_SHOWDROPDOWN,1,0);
    //form1.Cursor:=crCross;
  end;
可是这样做的话，鼠标就不见了，只有再在其它地方点一下鼠标，才又出现，怎么解决？？？

Answer 1

在dbcombobox1得到焦点的时候，下拉出菜单，如下操作：（不用向你那么复杂）
procedure TForm1.DBComboBox1Enter(Sender: TObject);
begin
  dbcombobox1.DroppedDown:=True;
end;

Answer 2

弹出DbComboBox的下拉菜单不用写代码吧

Answer 3

我知道dbcombobox1.DroppedDown:=True;也用过，效果是一样的。鼠标还是消失了。