用Delphi寫個簡單的瀏覽器

之前有曾經放上WebBrowser元件來測試 之後終於成功了
所以小弟來發一篇教學好了 希望大家不要見笑 也不要搞笑
首先 我們準備以下所需的元件:
6個Button、1個WebBrowser(在Internet那頁)、1個Edit
Button的功能分別是:上一頁、下一頁、首頁、重新整理、到、停止:
接下來在FormCreat事件中加入以下程式碼:
複製內容到剪貼板
代碼:
Edit1.Text := 'http://tw.yahoo.com';
WebBrowser1.Navigate('http://tw.yahoo.com');
這麼一來在表單載入後Edit1的內容就會是http://tw.yahoo.com
而且表單載入後就會自動連到http://tw.yahoo.com去

然後分別在6個Button的OnClick事件中加入程式碼:
上一頁的:WebBrowser1.GoBack;
下一頁的:WebBrowser1.GoForward;
首頁的:WebBrowser1.GoHome;
重新整理的:WebBrowser1.Refresh;
到的(按下這個按鈕將會連線到Edit1的網址):
Edit1.Text := Trim(Edit1.Text);
If Edit1.Text <> '' then WebBrowser1.Navigate(Edit1.Text);
停止的:WebBrowser1.Stop;
輸入完Edit1之後Enter的(跟"到"有同樣功能):
If Key = VK_Return then Button5.Click;

那麼你可以跑一次這支程式看看 就完工了...
這些不過是基本的WebBrowser運用 大家可以再強化這隻瀏覽器