Hi Tom,
vielleicht genügt dir ja das hier:
Delphi-Quellcode:
procedure TWebForm.WebBrowserBeforeNavigate2(Sender: TObject;
const pDisp: IDispatch;
var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant;
var Cancel: WordBool);
begin
if pDisp = WebBrowser.DefaultInterface
then
LockWindowUpdate(
Handle);
end;
procedure TWebForm.WebBrowserDocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
if pDisp = WebBrowser.DefaultInterface
then
LockWindowUpdate(0);
end;
Grüße vom marabu