ComboBox组件自动弹出问题

Question

怎样才能控制ComboBox控件而不用点那个按钮就可以令ComboBox自动弹出下拉列表？

Answer 1

SendMessage(ComboBox1.handle,WM_Click,0,0);

Answer 2

先设置ComboBox的Style属性为：csDropDownList，要不然点击时不下拉；
然后在某个事件里发送消息，比如按钮事件：
procedure TForm1.Button2Click(Sender: TObject);
begin
  SendMessage(ComboBox1.Handle, WM_LBUTTONDBLCLK, 0, 0);
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
begin
  ComboBox1.DroppedDown := True;
end;