unit Unit4;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm4 = class(TForm)
cbb1: TComboBox;
btn1: TButton;
Button1: TButton;
Button2: TButton;
procedure btn1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
{$R *.dfm}
procedure TForm4.btn1Click(Sender: TObject);
begin
//添加
cbb1.Items.AddObject('ֵ1', TObject(NewStr('01')));
cbb1.Items.AddObject('ֵ2', TObject(NewStr('02')));
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
//值
ShowMessage(PAnsiString(cbb1.Items.Objects[cbb1.ItemIndex])^);
end;
procedure TForm4.Button2Click(Sender: TObject);
begin
//键
ShowMessage(cbb1.Text);
end;
end.