菜鸟求助，快来抢分

Question

把相同组控件的tag设为一样,如第一组设为 1,第二组设为 2
在click时判断tag来执行相应的代码

Answer 1

用JAVASCRIP 实现
function ButtonOnClick(index){
   var k;
   k = index;  
   if( k == 1 ){
       //add your codes;
   }
}按扭的属性中写上
onclick = "ButtonOnClik(index)"  //

Answer 2

比如：procedure TForm1.Edit1Click(Sender: TObject);
//动作一
begin
  Edit1.Text:='111';
end;procedure TForm1.Edit2Click(Sender: TObject);
//动作二
begin
  Edit1.Text:='2222'
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  B1,B2:array[1..5]of TButton;
  i,j:Integer;
begin
  for I:=1 to 5 do
  begin
    B1[I]:=TButton.Create(Self);
    B1[I].Parent:=Form1;
    B1[I].Top:=60;
    B1[I].Left:=I*20;
    B1[I].Width:=15;
    B1[I].Height:=15;
    B1[I].OnClick:=Edit1Click;
    B1[I].Visible:=True;
  end;
  for I:=1 to 5 do
    begin
    B2[I]:=TButton.Create(Self);
    B2[I].Parent:=Form1;
    B2[I].Top:=100;
    B2[I].Left:=I*20;
    B2[I].Width:=15;
    B2[I].Height:=15;
    B2[I].OnClick:=Edit2Click;
    B2[I].Visible:=True;
  end;
end;