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.
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.
