动态创建控件的事件处理过程如何编写？

比如如下代码：
var socket_t:array[1..100] of Tclientsocket;

procedure Tfrmsetnet.Button1Click(Sender: TObject);
begin
socket_t[i]:=Tclientsocket.Create(nil);
socket_t[i].Address:=MaskEdit1.Text;
socket_t[i].Port:=strtoint(Edit1.text);
socket_t[i].Active:=true;
end;
动态创建了一个Tclientsocket的对象，该如何编写其onread事件处理过程？是否要声明？

5 个解决方案

#1

socket_t[i].OnRead:=你的方法函数

#2

来晚了
还有最好你的函数的参数，和静态方法的函数的参数一致，呵呵

#3

还有一个问题，为什么运行socket_t[i].Socket.SendText('123456');系统提示出错呢，之前连接已经建立了，用静态的控件就不会出错，是否socket_t[i]:=Tclientsocket.Create(nil);句中的参数未指定引起的，请大虾指点

#4

已经解决了，多谢大虾

#5

那我接个分吧，谢谢，呵呵