85问答库 > delphi 多次执行DocumentComplete事件，怎么停止它？我用下面的方法停止不了，最后它还是给我运行了好几次

delphi 多次执行DocumentComplete事件，怎么停止它？我用下面的方法停止不了，最后它还是给我运行了好几次

2025-04-13 21:45:14

推荐回答（1个）

回答1：

可以定义一个变量来限定只运行一次，如
var
bComplete: Boolean;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
if not bComplete then
begin
Doc:=Webbrowser1.Document as IHTMLDocument2;
if pos('skey',Doc.cookie)>0 then
WebBrowser1.Stop;
bComplete := True;
end;