如何激活combobox,并且获得item中的值，谢谢

Question

如何激活combobox,并且获得item中的值，谢谢如果不激活事件combobox1change，combobox不能弹出下拉列表。
激活能够弹出下拉列表，但不知道在里边添加什么内容，就什么也没有添加。
结果，在运行时提示：invalid property value  
请问，在combobox1change中添加什么属性啊？

Answer 1

TComboBox.DroppedDown := True;可以实现下拉

Answer 2

按照 bear_hx,
仍然提示：invalid   property   value 。
大概是程序问题吧。
不知道oushengfen说的怎样发送消息呢？
刚刚开始学delphi，请赐教

Answer 3

我的程序很简单，就是delphi串口调试那书的一个不是很全面的例子。
程序如下：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, MSCommLib_TLB, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Memo1: TMemo;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    ComboBox2: TComboBox;
    Button1: TButton;
    Button2: TButton;
    MSComm1: TMSComm;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure MSComm1Comm(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  MSComm1.InBufferCount:=0;
  MSComm1.InputLen:=0;
  MSComm1.RThreshold:=1;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  MSComm1.Settings:=ComboBox1.Text;
  if ComboBox2.Text='com1'then
    MSComm1.CommPort:=1
  else
    MSComm1.Commport:=2;
  MSComm1.PortOpen:=true;
  MSComm1.DTREnable:=true;
  MSComm1.RTSEnable:=true;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  MSComm1.PortOpen:=false;
  MSComm1.DTREnable:=false;
  MSComm1.RTSEnable:=false;
end;procedure TForm1.MSComm1Comm(Sender: TObject);
var
  recstr:Olevariant;
begin
  if MSComm1.CommEvent=2 then
  begin
    recstr:=MSComm1.Input ;
    Memo1.Text:=Memo1.Text+recstr;
  end
end;end.
提示：invalid       property       value 错误。
谢谢赐教