简单麻烦的问题

Question

有68个combobox的控件，名字是combobox1...combobox68（名字，tag都可以改变）， 执行的代码基本上是一样的，我不想把每个combobox控件的chang的时间里都去写代码，这样太笨了，怎么能在一个combobox的时间里输入就可以了，其他的都来执行呢

Answer 1

可以的.
你在combobox1中將事件寫好,然後,全選控件combobox2...combobox68,按F11,在OnChange事件欄選中Combobox1Change就可以了.

Answer 2

但是这样是执行了完全一样的代码了，不能又任何的区别吧，如果我想知道我单击的这tag是多少怎么办啊！！！

Answer 3

动态创建就可以啦
先创建一个动态数组，类型为combobox1
引用for 循环
然后再用create方法创建，
然后这定各种可视参数及时件

Answer 4

procedure TForm1.Combobox1Change(Sender: TObject);
begin
  ....
  if sender=Combobox1 then
  ...  if sender=Combobox2 then
  ...  ...
     
  if sender=Combobox68 then
  ...  //或者可以用tag
  {
  case (sender as Tcombobox).tag of
    1: dosomething
    2: dosomething
    ...
    68 dosomething
  end
  }
end;