Cara membuat internet browse dengan Twebbrowser delphi

Siapkan form baru kemudian drag komponen ToolBar dan WebBrowser, drag Tedit dan button kedalam Toolbar. Untuk memberikan jarak antar Tedit dan button gunakan Splitter diantara kedua komponen tersebut. Komponen splitter berada pada tab additional komponen, atur jarak splitter dengan memberi nilai width pada properti splitter (lihat gambar1), lihat desain gambar berikut.

Gambar1

Gambar2

Gamabar3

klik dua kali pada komponen button maka akan muncul eventhandler TForm1.Button1Click dan isikan code berikut:

 WebBrowser1.Navigate(Edit1.Text);
 repeat Application.ProcessMessages until FDocLoaded;

Pilih WebBrowser1 pada ComboBox Object Inspector kemudian klik Events ( lihat Gambar3), klik dua kali pada OnBeforeNavigate2 dan masukkan kode berikut pada eventhandlernya :

 CurDispatch := nil;
 FDocLoaded := False;

Klik dua kali OnDocumentComplete dan masukkan kode berikut:

 if (pDisp = CurDispatch) then 
   begin
     FDocLoaded := True;
     CurDispatch := nil;
   end;

Klik dua kali OnNavigateComplete2 dan masukkan kode berikut:

 if CurDispatch = nil then CurDispatch := pDisp;

Masukkan kode berikut pada Private declarations

 CurDispatch: IDispatch;
 FDocLoaded: Boolean;

Save project dan jalankan, gunakan edit1 untuk addressbar dan button1 untuk enter. download kode lengkapnya disini..!!