Mi primer meta en Delphi es realizar un Navegador como Internet Explorer o FireFox, pero como soy novato en esto solo le pondre lo basico que necesita un navegador.
Mi base es esta:
Necesito Ayuda y alguien q me tenga paciencia porque como dije soy novato, y tal vez me cueste entender. Pero como dije la Base esta
Mi codigo es este:
Citar
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, OleCtrls, SHDocVw, StdCtrls, ExtCtrls, Menus, Buttons;
type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
ComboBox1: TComboBox;
Panel2: TPanel;
WebBrowser1: TWebBrowser;
ProgressBar1: TProgressBar;
atras: TBitBtn;
BitBtn2: TBitBtn;
actualizar: TBitBtn;
BitBtn4: TBitBtn;
MainMenu1: TMainMenu;
Archivo1: TMenuItem;
Edicion1: TMenuItem;
Ver1: TMenuItem;
Herramientas1: TMenuItem;
Ayuda1: TMenuItem;
ir: TBitBtn;
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, OleCtrls, SHDocVw, StdCtrls, ExtCtrls, Menus, Buttons;
type
TForm1 = class(TForm)
Panel1: TPanel;
Label1: TLabel;
ComboBox1: TComboBox;
Panel2: TPanel;
WebBrowser1: TWebBrowser;
ProgressBar1: TProgressBar;
atras: TBitBtn;
BitBtn2: TBitBtn;
actualizar: TBitBtn;
BitBtn4: TBitBtn;
MainMenu1: TMainMenu;
Archivo1: TMenuItem;
Edicion1: TMenuItem;
Ver1: TMenuItem;
Herramientas1: TMenuItem;
Ayuda1: TMenuItem;
ir: TBitBtn;
procedure ComboBox1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
end;
end.
La Pregunta es... ¿como hago para que mi programa navegue como IExplorer o FireFox?
E leido por ahi que primero debo poner en el Browser donde se tecla la www.ejemplo.com
esto:
Citar
procedure TFormulario.URLKeyDown( Sender: TObject; var Key: Word; Shift: TShiftState );
begin
if key = VK_RETURN then
begin
WebBrowser.Navigate( URL.Text );
URL.Items.Add( URL.Text );
end;
end;
Pero cuando intento correrlo me aparece errorbegin
if key = VK_RETURN then
begin
WebBrowser.Navigate( URL.Text );
URL.Items.Add( URL.Text );
end;
end;
Citar
procedure TFormulario.URLKeyDown( Sender: TObject; var Key: Word; Shift: TShiftState );
begin
if key = VK_RETURN then
begin
WebBrowser.Navigate( URL.Text );
URL.Items.Add( URL.Text );
end;
end;
begin
if key = VK_RETURN then
begin
WebBrowser.Navigate( URL.Text );
URL.Items.Add( URL.Text );
end;
end;
Saque esto de esta web: ¿Puedo poner la Web? por q no se si esta permitido...
Les agradeceria si me dan una mano.