用delphi创建dll，dll中没有定义任何类，如何给动态创建出的控件添加事件呢？

Question

比如创建出一个窗体，要给窗体附上双击事件，该怎么做？谢谢

Answer 1

procedure Tform1.MyClick(sender:Tobject);
begin
 showmessage('你双击了FORM');
end;form1 := Tform1.Create(self);
Form1.Onclick := myClick();

Answer 2

DLL中，大哥。。

Answer 3

sockdll.dpr中
var TheWinSock: TWinsock;
procedure OnDataArrival(ASender: TObject; bytesTotal: Integer);beginend;
procedure IniWinSock(IP: string = '127.0.0.1'); stdcall;begin TheWinSock := TWinsock.Create(nil);
TheWinsock.RemoteHost := Trim(IP);TheWinsock.RemotePort := 502;TheWinsock.Connect;TheWinsock.OnDataArrival := OnDataArrival; //这就有问题了！！！end;

Answer 4

procedure FormShowEvent(Self : TForm; //这个必须加上,而且放在最前面,代表事件的属主
                        Sender: TObject; Button: TMouseButton;
                        Shift: TShiftState; X, Y: Integer);
begin
  ShowMessage(Self.Name);
  ShowMessage(Sender.ClassName + ' ' + IntToStr(X) + ' ' + IntToStr(Y));
end;procedure TForm1.FormCreate(Sender: TObject);
var
  Method : TMethod;
begin
  Method.Code := @FormShowEvent;
  Method.Data := Self;
  Self.OnMouseDown := TMouseEvent(Method);
end;

Answer 5

Function/procedure xxxx(xxx)  of object
这种定义，都会隐含地在最前面加一个参数Self，表示类，其他和普通函数没区别