Link to home
Start Free TrialLog in
Avatar of Khan Consultoria
Khan ConsultoriaFlag for Brazil

asked on

Using goback and goforward for Internet Explorer created with CreateOleObject

Hello Guys,

I create this code:

   ie := CreateOleObject('InternetExplorer.Application');
   h  := ie.hwnd;
   ie.visible      := false;
   ie.fullscreen   := false;
   ie.TheaterMode  := false;
   ie.MenuBar      := False;
   ie.AddressBar   := False;
   ie.Resizable    := true;
   ie.StatusBar    := False;
   ie.ToolBar      := 0;
   ie.Width        := Panel2.Width;
   ie.Height       := Panel2.Height+27;
   ie.top          := -27;
   ie.left         := 0;

   sleep(3000);
   windows.setparent(ie.hwnd, panel2.handle);
   ie.visible := true;
   if _htmlDireta<>'' then
     ie.Navigate(_htmlDireta)
   else
     ie.Navigate('about:blank');

Open in new window


I want to work with 2 bottons, one for goback and another to goforward.
But before using it, I need to check if my IE has changed and has a history page
How could I check my IE change?

I found the command but I don't know how to insert it into my code:

https://docs.microsoft.com/en-us/previous-versions/windows/internet-explorer/ie-developer/platform-apis/aa768361(v=vs.85)

something like in this example:

https://www.swissdelphicenter.ch/en/showcode.php?id=1158

Note: I can't use the TWebBrowse that comes with Delphi due to being out-of-date.

regards
ASKER CERTIFIED SOLUTION
Avatar of sarabande
sarabande
Flag of Luxembourg image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of Khan Consultoria

ASKER

thanks a lot