delphi - How can I hide WebBrowser till the website complete the loading / download process? -
i'm wondering how can hide webbrowser
until website loading process complete?
also, im using panel1 , webbrowser
on top of it. why? well, way, can set panel1 size , position exacly want webbrowser, place webbrowser on top of panel1 , set size (width, height webbrowser) +4 px overall. after resize webbrowser (left, top) -2px can remove webbrowser borders :) after resizing webbrowser -2px height , width, webbrowser exacly same size panel1 no borders...
now, subject - i've tried set tfmain.webbrowser1navigatecomplete2
event using fmain.panel1.visible:=true;
(in panel1 settings set visible option false panel1 , webbrowser both invisible), doesn't work. panel1 , webbrowser stay invisible time.
how can make panel1 visible after webbrowser finish website download?
one more thing: because webbrowser on top of panel1, when set panel1 visible false, webbrowser goes invisible :)
so, can me that? thank you...
if have 1 twebbrowser
instance, has been put form @ design time, can initialize following code:
procedure tfmain.keepwebbrowserinvisible; begin webbrowser1.align := alnone; webbrowser1.left := -webbrowser1.width - 1; webbrowser1.top := -webbrowser1.height - 1; webbrowser1.ondocumentcomplete := webbrowser1documentcomplete; end; procedure tfmain.webbrowser1documentcomplete(sender: tobject; const pdisp: idispatch; const url: olevariant); begin if pdisp = webbrowser1.defaultdispatch begin // document or main frame has been downloaded webbrowser1.align := alclient; // fill panel1 end; end;
important: if browser instance created dynamically, should add panel1.insertcontrol(webbrowser1)
, when intend show browser.
Comments
Post a Comment