type

  Tweb = class(TForm)

    WebBrowser1: TWebBrowser;

    Panel1: TPanel;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    SpeedButton3: TSpeedButton;

    SpeedButton4: TSpeedButton;

    Edit1: TEdit;

    Edit2: TEdit;

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure SpeedButton3Click(Sender: TObject);

    procedure SpeedButton4Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure WebBrowser1TitleChange(Sender: TObject;

      const Text: WideString);

    procedure WebBrowser1DocumentComplete(Sender: TObject;

      const pDisp: IDispatch; var URL: OleVariant);

  private

    { Private declarations }

  public

    { Public declarations }

  end;



var

  web: Tweb;



implementation



{$R *.dfm}



procedure Tweb.SpeedButton1Click(Sender: TObject);

var

a,b,c,d:OLEVariant;

begin

WebBrowser1.Navigate(Edit1.Text,a,b,c,d);

end;



procedure Tweb.SpeedButton2Click(Sender: TObject);

begin

WebBrowser1.GoBack;

end;



procedure Tweb.SpeedButton3Click(Sender: TObject);

begin

WebBrowser1.GoForward;

end;



procedure Tweb.SpeedButton4Click(Sender: TObject);

begin

WebBrowser1.GoHome;

end;



procedure Tweb.FormCreate(Sender: TObject);

var

a,b,c,d:OLEVariant;



begin

  WebBrowser1.Navigate(Edit1.Text,a,b,c,d);



end;



procedure Tweb.WebBrowser1TitleChange(Sender: TObject;

  const Text: WideString);

begin

Edit2.Text:=Text;

end;


procedure Tweb.WebBrowser1DocumentComplete(Sender: TObject;

  const pDisp: IDispatch; var URL: OleVariant);

begin

Edit1.Text:=URL;

ShowMessage('İstediğin URL Yüklendi.');

end;



end.