delphi ComboBox ComboBox是灰色的，点击一个按钮，ComboBox变得可以点击，点击另一个按钮，变得可以点

ComboBox的Enable属性，点击一个按钮，Enable变成Ture，点击另一个，Enable变成False。

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

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
combobox1.Enabled :=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
combobox1.Enabled :=false;
end;

tcombobox就是下拉框,供选择用的.它有个items属性,就是下拉的内容,你可以给它添加下拉内容.比如: combobox1.items.add('张三'); combobox1.items.add('李四'); 而要知道当前选择了张三还是李四可以这样写代码: var idx:integer; begin idx:=combobox1.itemindex;//当前选择项目的索引,从0开始,没有选是-1 if idx<>-1 then showmessage('你选择了'+combobox1.items[idx]) else showmessage('你没选择!'); end; 简单的用法就这样,自己多看帮助

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息