Recent

Author Topic: Webbrowser(IE) for Lazarus Demo  (Read 38220 times)

alaa123456789

  • Full Member
  • ***
  • Posts: 167
Re: Webbrowser(IE) for Lazarus Demo
« Reply #15 on: March 05, 2021, 03:02:55 pm »


Code: Pascal  [Select][+][-]
  1. Uses Windows, Comobj;
  2.  
  3. procedure TForm1.Button1Click(Sender: TObject);
  4. var browser: olevariant;
  5. begin
  6.  browser := CreateOleObject('InternetExplorer.Application');
  7.  windows.setparent(browser.hwnd, form1.handle); // you can use panel1.handle, etc..
  8.  browser.toolbar:=false;
  9.  browser.fullscreen:=true;
  10.  browser.Resizable:=false;
  11.  browser.visible:=true;
  12.  Browser.Navigate('http://www.lazarus.freepascal.org/');
  13. end;

hi
   i added it to panel , then when i write on edit box new website address and press go , it doesn't open in the same window it open normal explorer
what is the solution?

 

TinyPortal © 2005-2018