{请问怎么可以取到TComboBoxEx的值,前提是只能从下拉的中选那种方式.
TComboBoxEx取不出,但TComboBox却能取出}
unit Unit1;interfaceuses
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.
TComboBoxEx取不出,但TComboBox却能取出}
unit Unit1;interfaceuses
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.
begin
showMessage(ComboBoxEx1.Items.Strings[ComboBoxEx1.ItemIndex]);
end;Style設定:csExDropDownList