盒子论坛 v2.1

如何把它的onclick事件与一个过程相关联
这样写为什么出错：
procedure hello(Sender: TObject);//如何定义
begin
。。。
end;

Form2.Button1.OnClick:=hello(NULL);
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/10/25 11:24:06

1楼：

procedure myclick(sender:TObject);
begin
Showmessage((Sender as TButton).Caption));
end;

procedure hello(Sender: TObject);//如何定义
var
btn:TButton;
i:Longint;
begin
for i:=0 to 3 do
begin//1
   btn:=TButton.create(self);
   btn.caption:=inttostr(i);
   btn.onclick:=myclick;
end;
end;
----------------------------------------------

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/10/25 11:25:16

2楼：

----------------------------------------------

信息

登陆以后才能回复