Question

Delphi中动态生成的button调用onclick如何传递参数

我Delphi新手，请问哪位知道我提的问题，动态生成的button调用onclick如何传递参数？其中onclick指向的一个过程需要怎么设置？或者定义呢？

还有另外一个问题，就是在这个被调用的过程的内部，是否有办法知道
到底是哪个动态生成的button在调用这个过程呢？

Answer 1

Delphi中的事件（Event)实际上是一个方法指针。象楼上写的
btn.OnClick := OnClick; 这样的语句实际上就是把新生成的Button的Onclick这个方法指针指向自己写的OnClick这个过程。

第二个问题，有办法，就是Sender参数。它就是调用本过程的主体。如果你看一下TButton的源代码，会发现传入的参数就是本对象自身。所以你只要对Sender作类型判断和类型转化就可以了

Answer 2

procedure TForm1.MyOnClick(Sender: Tobject);//自定义触发过程
begin
ShowMessage('就是这样 ');
end;

procedure TForm1.create(Sender: TObject);
var
i,n:Integer;
btn1: Tbutton;
begin
btn1:= TLabel.Create(Application);
btn1.Parent := Self;
btn1.Caption := '123';
btn1.Top := 175;
btn1.Height := 75;
btn1.Width :=75 ;
btn1.Left := 10;
btn1.OnClick := MyOnClick;//它就是btn1
end;
end;

Answer 3

//自定义事件过程，过程名可以任意取
procedure TForm1.OnClick(Sender: TObject);
begin
if Sender is TButton then
begin
if TButton(Sender).Name = 'button1' then
...
else if TButton(Sender).Name = 'button2' then
...
end;
end;

//创建TButton
var
btn: TButton;
begin
btn := TButton.Create(Application);
btn.Name := ''; //自己定义，注意不要有重复
btn.Caption := ''; //自己定义
btn.OnClick := OnClick;
end;