关于事赋值的问题

Question

我想把WebBrowser1.OnDownloadComplete的事件指向我定义的一个事件函数，如下代码：
Form1.WebBrowser1.OnDownloadComplete:=TNotifyEvent(@WebBrowser1DownloadComplete);procedure WebBrowser1DownloadComplete(Sender: TObject);
begin
      ShowMessage('ok');
end;编译出错，错误信息如下:
Invalid typecast请前辈们指点，谢谢！

Answer 1

同意,
在你的Form里定义一个procedure 
procedure WebBrowser1DownloadComplete(Sender: TObject);
...
procedure TForm1.WebBrowser1DownloadComplete(Sender: TObject);
begin
  ShowMessage('ok');
end;然后直接赋值就可以了,
比如在Form的oncreate里
OnDownloadComplete:=WebBrowser1DownloadComplete;