Show website in a form
lazarus / 34-Windows

----------------------------------------------------------------------
Kips · 2011-08-24 09:19

hi,


I want to show a website in a form. I am working with Lazarus for
windows.

The following code creates an Internet Explorer object, and place it
on a form. The object is descripted here:
http://msdn.microsoft.com/en-us/library/aa752084%28v=vs.85%29.aspx

My problem is that the Internet Explorer scrollbars, captions and
buttons is visible.

The only way to fix that is to set FullScreen to True but then the
object can't be resized 

I want to make the buttons and stuff disappear AND make the object
resizeable - any ideas?!

Should I use the WebBrowser Object instead:
http://msdn.microsoft.com/en-us/library/aa752085%28v=VS.85%29.aspx#3


unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
ExtCtrls,
  Comobj, windows;

type

  { TForm1 }

  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    { private declarations }
    browser: olevariant;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var

  s:variant;

begin
  panel1.align:=alClient;
  browser := CreateOleObject('InternetExplorer.Application');
  windows.setparent(browser.hwnd, panel1.handle);
  browser.toolbar:=true;
  browser.fullscreen:=false;   //browser.fullscreen:=true;
  browser.Resizable:=true;
  browser.visible:=true;


  s:='http://www.microsoft.com';
  Browser.Navigate(s);

end;

procedure TForm1.FormResize(Sender: TObject);
begin
  browser.width:=clientWidth;
  browser.height:=clientHeight;

end;

end.

----------------------------------------------------------------------
tr_escape · 2011-12-21 14:52

I tried but it isn't worked correctly also i tried more sample of OLE
but i am not successful.

In delphi you can show web site with by a activex but lazarus is a
cross platform compiler and don't support this method yet.

----------------------------------------------------------------------
zzsczz · 2011-12-21 15:28

fpc : fixes_2_6      r19871
lazarus : fixes_0_9_30 r34261
win32  (win7 os  64bit)

Kips' code works well
 see attach

----------------------------------------------------------------------
joseme · 2011-12-21 16:18

I am testing the Gecko port and it works very well. The browser does
not show scrollbars or buttons, and its resizeable

----------------------------------------------------------------------
ludob · 2011-12-21 18:19

The Gecko port works fine but has a few disadvantages. The binding is
at level 1.9 while the latest xulrunner is 8.0. The learning curve is
also quite steep and it takes a lot to get your first app running.
You can also use the 'Shell.Explorer' ActiveX object. See
http://lazarus.freepascal.org/index.php/topic,9311.15/topicseen.html?
Drop a panel on the form, run the code and the ActiveX control will be
displayed on the panel. The browser will re-size with the panel.
The original demo at http://lists.lazarus.freepascal.org/pipermail/laz
arus/2011-May/063491.html shows also how to sink events coming from
the ActiveX control.

----------------------------------------------------------------------
bambamns · 2012-05-11 04:01

Try this - it's working now like TWebBroser in Delphi.
http://wiki.freepascal.org/LazActiveX