Aplikasi Browse TV Online Pada Blog BSI PROGRAMMER

Bina Sarana Informatika
**Testing Control Browse TV Online**
------------------------------------------------------------------------------------------

Untuk Project Utamanya Source code x sebagai berikut :

unit Mozilla_Browser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, OleCtrls, MOZILLACONTROLLib_TLB;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    ComboBox1: TComboBox;
    Button4: TButton;
    Panel2: TPanel;
    MozillaBrowser1: TMozillaBrowser;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure MozillaBrowser1ProgressChange(ASender: TObject; Progress,
      ProgressMax: Integer);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
MozillaBrowser1.GoBack;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
MozillaBrowser1.Refresh;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Mozillabrowser1.GoForward;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
MozillaBrowser1.Navigate(ComBoBox1.Text);
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Combobox1.SetFocus;
end;

procedure TForm1.MozillaBrowser1ProgressChange(ASender: TObject; Progress,
  ProgressMax: Integer);
begin
Combobox1.Text:=MozillaBrowser1.LocationURL;
end;

end.



Coba Dan Download Projectnya
Download Project Browse TV Online Blog BSI PROGRAMMER