Navegador Web [Delphi]

Bien, hoy no tenia que hacer ["segun" porque despues recorde que tenia Tareas xD] y bien hice un navegador web con Este lenguaje [Delphi]. Es muy, muy básico pero funciona!!

Bien dejo el source:

Código:


unit Navegador;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    WebBrowser1: TWebBrowser;
    Go: TButton;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    MainMenu1: TMainMenu;
    Archivo1: TMenuItem;
    Salir1: TMenuItem;
    Button4: TButton;
    PginaInicio1: TMenuItem;
    procedure GoClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Salir1Click(Sender: TObject);
    procedure PginaInicio1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.GoClick(Sender: TObject);
begin
WebBrowser1.Navigate(Edit1.Text);
end;

procedure TForm1.PginaInicio1Click(Sender: TObject);
begin
WebBrowser1.Navigate('[Tienes que estar registrado y conectado para ver este vínculo]
end;

procedure TForm1.Salir1Click(Sender: TObject);
begin
Form1.Close;
end;

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

procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.GoBack;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
WebBrowser1.Navigate('[Tienes que estar registrado y conectado para ver este vínculo]
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
WebBrowser1.Refresh;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
WebBrowser1.Navigate( Edit1.Text )
end;

end.


Y dejo el poyecto en un RAR, lo compile sobre en Delphi 2010!!
DESCARGAR: [Tienes que estar registrado y conectado para ver este vínculo]
NOTA: EL navegador tiene por nombre project1.exe, deje el nombre por defaul xD!!

Salud[OS]

k bn, interesante

que se supone que es eso??? un navegador de internet???

kuka27sfc escribió:que se supone que es eso??? un navegador de internet???

sii es un navegador