|
#2
haiou3272013-10-13 15:04
 程序代码：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 编辑 ] |
新手想不到取个TComboBox1都这么麻烦,在ASP容易的不得了.......哎