Programalama > DELPHI

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.