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;