为什么解决了这个还有那个呢

Question

我把combobox的style属性改成csDropDownList 但是 原来还作了双击dbgrid的某一行就可以让combobox自动显示相关内容的 现在style属性变了 那么 就不能双击显示了 我想既能双击显示又能让combobox可以像csDropDownList那样不能编辑 问了朋友 也没有说清楚 请高手指点一下 谢谢 在线等
下面是dbgrid的程序
procedure Tbumenguanli.DBGrid1DblClick(Sender: TObject);
begin
  bumenquery.close;
  bumenquery.params.clear;
  bumenquery.sql.clear;
  bumenquery.params.createparam(ftstring,'bm',ptinput).asstring:=DBGrid1.SelectedField.value;
  bumenquery.sql.add('select * from bumen where bumenmingcheng=:bm');
  bumenquery.ExecSQL;
  bumenquery.open;
  combobox1.text:=bumenquerybumenmingcheng.value;
  bumenquery.Close;
  edit1.setfocus;
  edit1.Focused ;
end;

Answer 1

把dblclick事件换成click事件
/////////////////////
难道不是combobox的问题吗 我先试试用click事件

Answer 2

我把你的问题看反了，我还以为你是combobox选择了以后去控制dbgrid
原来是dbgrid双击后控制combobox
那不是很简单吗？改成csDropDownList以后，设置combobox1.text是无效的
用combobox1.itemidex来控制
for i=0 to combobox1.items.count-1 do
begin
  if combobox1.items[i] = bumenquerybumenmingcheng.value
  beging
    combobox1.itemindex:=i;
    break;
  end;
end;
  bumenquery.Close;