Desenvolvendo um simples navegador em delphi7

------------------------------------------------------------------------
Tutorial escrito...

Vamos utilizar:

1 - WebBrowser (Internet)
1 - Panel (Standard)
5 - Buttons (Standard)
1 - XPManifest (Win32)
-----------------------------------------------------------------------
Os buttons serão colocados "dentro do panel"...
O panel será alinhado no "top"...

Agora o WebBrowser será alinhado pra "alClient"...

Ao termino disso seu 'Form' vai ficar assim:

Vamos mudar o caption dos "buttons" e o texto do "edit"...
Selecione o button1 e vá na ObjectInspector Localize a opção Caption e mude para (<-)...

Faça a mesma coisa nos outros "buttons" seguindo a imagem:

-------------------------------------------------------------------------------------------
Depois de ter feito isso seu "Form" ficara assim:

---------------------------------------------------------------------------------------
Vamos programar.........

Código do button1 (<-)

WebBrowser1.GoBack;
----------------------------------------------------------------------------------------
Código do button2 (->)

WebBrowser1.GoForward;
----------------------------------------------------------------------------------------
Código do button3 (Ir)

WebBrowser1.Navigate(Edit1.Text);
----------------------------------------------------------------------------------------
Código do button4 (Atualizar)

WebBrowser1.Refresh;
----------------------------------------------------------------------------------------
Código do button5 (Inicio)

WebBrowser1.Navigate('http://www.google.com.br');
----------------------------------------------------------------------------------------
Agora selecione o "Edit1" e va na ObjetInspector depois selecione a opcao eventos...
e selecione o evento OnKeyPress...

Dê um clique duplo no evento OnKeyPress irá abrir a janela de programação... Lá você digita isso entre o "Begin e o end; "



if Key = #13 then
begin
Button3.Click;
end;

Esse comando acima... Faz com que quando teclamos o Enter... Ele navegue para o Texto escrito no Edit1.Text....
-------------------------------------------------------------
Salve compile e teste....