动态生成了五个button,怎么知道那一个被单击了? 它们分别执行不同的代码!!

[web700]

动态生成了五个button,怎么知道那一个被单击了? 它们分别执行不同的代码!!

到底该如何写呀? 实在不是不懂, 帮忙呀.

如何将代码和它们联系在一起?

[xzhifei]

for i:=1 to 5 do
begin
...
Button[i].Tag:=i;//给按钮加上号码
...
end;

将所有的按钮Click事件设置为同一个事件
点击时，在Click事件中放置：
case TButton(Sender).tag of
1:
begin
//放你的代码
end;
...
end;

[sxy_9761]

unit Unit1;

interface

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

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

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonOnClick(Sender: TObject);
begin
case TButton(Sender).Tag of
0 : begin
ShowMessage('Button0.Clicked');
end;
1 : begin
ShowMessage('Button1.Clicked');
end;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
for i := 0 to 1 do
with TButton.Create(self) do
begin
OnClick := ButtonOnClick;
Tag := i;
Parent := Self;
Top := (i+1)*100;
Left := 50;
Caption := format('Button%d',[i]);
end;
end;

end.

[web700]

谢谢两位楼上

代码完全正确

明天结贴

谢谢你们!