Below are some coding. Here are the buttons:
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin
browser.Stop; //This will stop the browser
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
browser.Update; //This will Update the browser
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
browser.GoForward; //This will go Forward
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
browser.GoBack; //This will GoBack in the browser
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
browser.GoHome; //This will go Home
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
browser.Navigate(box.Text); //this will go to the website that is written in the editbox!
end;
This is a very very simple browser and you can also download the sample from if you search it on google.
Bookmarks