Código Delphi [-] procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OLEVariant); begin Self.Caption:= URL; end;
procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject; const pDisp: IDispatch; var URL: OLEVariant); begin Self.Caption:= URL; end;