[delphi] ​​view plain​​ ​​copy​​

 


  2. var  
  3.   Form1: TForm1;  
  4.   glpDisp: IDispatch = nil;  
  5. implementation  
  6. {$R *.dfm}  
  7. procedure TForm1.EmbeddedWB1DocumentComplete(ASender: TObject;  
  8.   const pDisp: IDispatch; var URL: OleVariant);  
  9. begin  
  10.   if (glpDisp <> nil) and (glpDisp = pDisp) then  
  11.   begin  
  12.     glpDisp := nil;  
  13.     Caption:= 'ok';  
  14.   end;  
  15. end;  
  16. procedure TForm1.EmbeddedWB1NavigateComplete2(ASender: TObject;  
  17.   const pDisp: IDispatch; var URL: OleVariant);  
  18. begin  
  19.   if glpDisp = nil then  
  20.     glpDisp := pDisp;  
  21. end;