---KOMPLE WEB BROWSER KODLARI
unit net;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, Buttons, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Edit1: TEdit;
Edit2: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
WebBrowser1: TWebBrowser;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure WebBrowser1TitleChange(Sender: TObject;
const Text: WideString);
procedure WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
procedure FormCreate(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
var
a,b,c,d,e,f:OLEVariant;
{$R *.dfm}
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text,a,b,c,d);
end;
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
WebBrowser1.GoBack;
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
WebBrowser1.GoForward;
end;
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
WebBrowser1.GoHome;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then SpeedButton1.Click;
end;
procedure TForm1.WebBrowser1TitleChange(Sender: TObject;
const Text: WideString);
begin
Edit2.Text:=Text;
Form1.Caption:=Text;
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
Edit1.Text:=URL;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text,a,b,c,d);
end;
procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
WebBrowser1.GoSearch;
end;
procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
WebBrowser1.Refresh;
end;
end.
