Thursday, January 6, 2011

How to create browser in DELPHI

1 TWebBrowser (name it browser and set it to alClient)
1 TToolBar (name it to Bar)
5 TButtons
1 TEditBox (name it box and set it alTop)



Now lets get to the 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;

0 comments:

Post a Comment

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Kang Iwan K-sev | Thank's for your visit To My Site - Ridwan Mulyana | Cibeureum