TComboBox1取值问题
新手想不到取个TComboBox1都这么麻烦,在ASP容易的不得了.......哎
程序代码：
var
i:Integer;
procedure TForm1.btn1Click(Sender: TObject);
begin
inc(i);
cbb1.Items.Add('添加第“ '+IntToStr(i)+' ”Lines');
cbb1.ItemIndex:=cbb1.Items.Count-1;
end;
procedure TForm1.cbb1Click(Sender: TObject);
begin
showMessage(cbb1.Items[cbb1.ItemIndex]);
end;
[ 本帖最后由 haiou327 于 2013-10-13 15:16 编辑 ]