关于动态控件的问题

[benbenfei]

我动态创建了一个按钮数组，然后让这一组按钮都共用一个click事件，但是我希望不同的按钮按下得到不同的效果，这个事件怎么能够分辨出是哪一个按钮按下的呢？有没有方法可以得到控件数组的下标？谢谢指教!

例如让button[0]按下，窗口标题变为'0',
button[1]按下，窗口标题变为'1',
.............

[powerlee]

可以先定义一个结构体
TNewButton = Record
btn:TBuuton;
Id:Integer;
Info:String;
...
end;

定义动态数组
btnArr : array of TNewButton;
当你动态建立Button的时候保存按钮相关信息
button := TButton.Create(Applicaiton);
button.OnClick := btnOnclick;
...
setlengh(btnArr,length(btnArr)+1);
with btnArr[Length(btnArr)-1) do begin
//用tag记录在数组中的编号
button.tag := length(btnArr) -1;
btn := Button ;

//加入代码记录关于此按钮的其他信息

end;
//在btnOnClick中
if sender is TButton then begin
//显示相关信息，当然也可以是做其他的操作
Form.Titile := btnArr[(Sender As TButton).tag].info;
。。。。
end;

[coldljy]

procedure TForm1.MyClick(Sender: TObject);
begin
if (Sender is Tbutton) then
Form1.Caption := IntToStr((Sender as TButton).Tag);
end;

procedure TForm1.testClick(Sender: TObject);
var
button1:array[1..9] of tButton;
i:integer;
begin
for i:=1 to 9 do
begin
button1[i]:= TButton.Create(self);
button1[i].top:=0+i*30;
button1[i].left:=0;
button1[i].Parent:=self;
button1[i].Caption := IntToStr(i);
button1[i].tag:=i;
button1[i].onclick:=MyClick;
end;
end;

[coldljy]

这个问题不知回答过多少遍了，想不到还可以用这个赚点分。

呵呵

[lwk_hlj]

coldljy说的对

[benbenfei]

怎么给分？