事件影射问题

[x_dsl]

据说，我动态创建了一个IDUDPCLIENT的数组，我应该为数组里面的每一个成员编写ondisconnect事件呢？谢谢各位帮忙了！
我试过arrUDPClient[i].OnDisconnect := xx(Sender as TObject);
失败了。

[ghchen]

不要参数,怎么调用

[梅青松]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure delClick(Sender: TObject); //声明

procedure Button2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
addnum,listnum:integer;
implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var
btn:tbutton;
begin
btn:=tbutton.Create(self);
btn.Parent := GroupBox2;
btn.Name:='btn_del'+inttostr(addnum);
btn.Caption:='删除';
btn.Visible:=true;
btn.OnClick:=delclick; //事件赋值
addnum:= addnum+1;
listnum:= listnum+1;
end;

procedure TForm1.delClick(Sender: TObject);
begin
if (sender is TButton) then
tbutton(sender).Free; //使用
end;

[子秦1117]

学习

[miky]

参数不要,但过程的声明要一致.
arrUDPClient[i].OnDisconnect := xx;