Wait a page is fully loaded Webbroser Delphi

I am using the code below to wait for a page to be fully loaded when I browse by code, and that works perfectly, but when I click on a link in a page, the WebBrowser1DocumentComplete or WebBrowser1NavigateComplete2 event fires several times if the page contains frames, of JS etc.

I would like to be able to wait for the page to load completely when I click on the link, but I don't know how.

WebBrowser1.Navigate(URL);  repeat    Application.ProcessMessages;    Sleep(0);  until WebBrowser1.ReadyState = READYSTATE_COMPLETE;  

https://stackoverflow.com/questions/66147513/wait-a-page-is-fully-loaded-webbroser-delphi February 11, 2021 at 09:23AM