再问天下Delphi英雄：

Question

1、use sender....
2、use public event code 

Answer 1

1.TScrollBox的OnClick属性表示了它的鼠标单击事件.
如下:
procedure TForm1.MyOnClick1(Sender:TObject);
begin
....
...
end;
procedure TForm1.MyOnClick2(Sender:TObject);
begin
....
...
end;
....
...
myscroll1=TScrollBox.Create(self);
....
...
myscroll1.OnClick:=MyOnClick1;
myscroll1:=TScrollBox.Create(self);
....
...
myscroll2.OnClick:=MyOnClick2;
2.这样不就可以了:
myButton1.Visible:=true;
myButton3.Visible:=true;
myButton11.Visible:=true;
....

Answer 2

1、另一个贴子中答了。
2、将你的按钮放在一个数组中。
  
  //生成
  For i:= 1 to n do 
  begin
    BtnArray[i]:= TButton.Create(Self);
    BtnArray[i].Parent:= Self;
    ...
  end;  //设置
  for i:=1 to x do
  begin
      BtnArray[i].Visible:=True;
  end;