菜鸟问题，控件数组

[aqjy]

建立了一个控件数组（一组TButton)，在事件中，如何知道是哪个下标触发的事件？
注：我是这样定义事件的：viewbutton[i].OnClick :=ViewbuttonClick;

[wzds2000]

ShowMessage(IntToStr(i));

[aqjy]

？我的问题是在事件中，如何得到i（参数中只有一个Sender),不是显示一下i。

[dulei115]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure MyClick(Sender:TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a:array[1..100] of tbutton;

implementation

{$R *.dfm}

procedure TForm1.MyClick(Sender: TObject);
var
i:integer;
nam:string;
begin
i:=strtoint(Trim(Copy(TButton(Sender).Name,7,3)));
TButton(Sender).Visible:=not TButton(Sender).Visible;
i:=i+1;
nam:='button'+inttostr(i);
if i<=100 then
TButton(FindComponent(nam)).Visible:=not TButton(FindComponent(nam)).Visible
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=1 to 100do
begin
a[i]:=tbutton.Create(self);
with a[i] do
begin
Top:=(i-1) div 20*20;
Left:=(i-1) mod 20*20;
Height:=20;
Width:=20;
Name:='button'+inttostr(i);
Caption:='';
Parent:=Form1;
OnClick:=MyClick;
end;
end;
end;

end.

[dulei115]

新建一个Project，把上面的代码Copy一下,在属性框中将Form1的OnCreate事件设为FormCreate（下拉选择）,就可以看到效果，具体怎样实现楼主自己去看！

[aqjy]

谢谢dulei115()