//---------------------------------------------------------------------------
#include <vcl\vcl.h>
#pragma hdrstop

#include "webbrow.h"
//---------------------------------------------------------------------------
#pragma link "shdocvw"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Variant  myVar;
  myVar = Null;
  WebBrowser1->Navigate(Edit1->Text,myVar, myVar, myVar,myVar);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
  WebBrowser1->Width = Form1->Width - 30;
  WebBrowser1->Height = (Form1->Height)- 70;
  WebBrowser1->Top = 40;
  WebBrowser1->Left = 10;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{
  FormShow(Sender);
}
//---------------------------------------------------------------------------