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 编辑 ]