4、再在创建BUTTON时这样写:
...
setlength(btn,100)
for i:=low(btn) to high(btn) do
begin
btn[i]:=TButton.Create(Self) ;
btn[i].tag:=i;//或者 Button.hint:=i;注意,这是关键
btn[i].OnClick := MyShow;
end;
...
procedure TForm1.myfunction(Sender: TObject);
begin
showmessage('怎么还不明白!');
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i : Integer;
begin
for i := 0 to 100 do
with TButton.Create(Self) do begin
Parent := Self;
OnClick := myfunction;
end;
end;