TComboBoxEx的小问题

[uploo]

{请问怎么可以取到TComboBoxEx的值，前提是只能从下拉的中选那种方式.
TComboBoxEx取不出，但TComboBox却能取出}
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
aa: TComboBoxEx;
Button1: TButton;
bb: TComboBox;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage((Self.FindChildControl('aa') as TComboBoxEx).Text);
ShowMessage((Self.FindChildControl('bb')as TComboBox).Text);
end;

end.

[suihu]

关注!!!

[uploo]

ding

[ailibuli]

procedure TForm1.ComboBoxEx1Change(Sender: TObject);
begin
showMessage(ComboBoxEx1.Items.Strings[ComboBoxEx1.ItemIndex]);
end;

Style設定:csExDropDownList

[ynduanlian]

up