Selasa, 21 Desember 2010 Delphi - Membuat firefox sendiri

Sore shobat,,, lama g' update neh,, kali ni kita akan membuat aplikasi firefox sendiri. Ya walau hasilnya g' seperti firefox asli,,, 

untuk scribnya gampang kq, copy pastein aja : 

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    Panel2: TPanel;
    WebBrowser1: TWebBrowser;
    Button1: TButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure WebBrowser1Enter(Sender: TObject; var Key: Word;
        Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
form2.ShowModal;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Key: Word;
begin
   webbrowser1.Navigate(edit1.Text);
case key of
  VK_ACCEPT: ;
end;
end;

procedure TForm1.WebBrowser1Enter(Sender: TObject; var Key: Word;
   Shift: TShiftState);
begin
 case key of
  VK_ACCEPT: ;
 end;
end;
end.

silahkan jg kalau mau diedit menurut selera shobat sendiri , untuk lebih jelasnya lagi, bisa download disini,

Selamat mencoba...!!!