DWM Jailbreak Webbrowser Demo

D2 TEKNIK KOMPUTER (BSI PROGRAMMER)

Pembuatan Aplikasi DWM Jailbreak Versi Desktop


Aplikasi ini di design sesederhana mungkin untuk menjadi demo dari Webbrowser menggunakan TEmbeddedWB 2010


Berikut Source Codenya : 

procedure TForm1.btnBackClick(Sender: TObject);
begin
EmbeddedWB1.GoBack;
end;

procedure TForm1.btnForwardClick(Sender: TObject);
begin
EmbeddedWB1.GoForward;
end;

procedure TForm1.btnGoClick(Sender: TObject);
begin
EmbeddedWB1.Go(IEaddress1.Text);
end;

procedure TForm1.btnStopClick(Sender: TObject);
begin
EmbeddedWB1.Stop;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
EmbeddedWB1.Navigate(IEaddress1.Text);

with EmbeddedWB1 do
    begin
      LoadSettings;
      Align := alClient;
      Visible := True;
      OnStatusTextChange := StatusTextChangeEvent;
      OnDownloadComplete := DownloadCompleteEvent;
      Go(IEaddress1.Text);
    end;

end;

procedure TForm1.FormShow(Sender: TObject);
begin
UpdateControls;
IEaddress1.Text:='http://www.bsiprogrammer.blogspot.com/';
end;


procedure TForm1.UpdateControls;
begin
  IEAddress1.Text := EmbeddedWB1.LocationURL;
  Form1.Caption := EmbeddedWB1.LocationName;
end;

procedure TForm1.StatusTextChangeEvent(Sender: TObject;
  const Text: WideString);
begin
  StatusBar1.SimpleText:=EmbeddedWb1.LocationName+'-'+EmbeddedWb1.LocationURL;
end;

procedure TForm1.DownloadCompleteEvent(Sender: TObject);
begin
  UpdateControls;
end;

 Berikut Screenshut program : 

 

  DOWNLOAD PROJECT