Ajuda TWebBrouser + TEdit

[Guest Visitante!]

Boa tarde à todos!!!

Gostária de implementar uma função a um navegador basico que estou criando, porem não estou Obtendo Exito!!!

No momento o Usuário apenas digita o endereço e Fica aquele para sempre!!!!

if Key = VK_RETURN then
web.Navigate(Edit1.Text);

Estou usando apenas a função acima!!! Gostária de que quando o Usuario, atualiza-se a página, mudaria o valor do EDIT1, para o valor correspondente a pagina atual!! Tipo: Ele esta em

www.google.com

, ai quando ele digita-se uma pesquisa no formulario do google e aperta em pesquisar.. Fazendo assim ir para a pagina de pesquisa do google.. que cuja indereço é

http://www.google.com.br/search?hl=pt-BR&q=pesquisa&btnG=Pesquisa+Google&meta=

Gostária de uma função que Captura esse indereço e joga para o EDIT para o usuário saber em que pagina esta!!!

E se não for pedir demais, gostária também de uma função que capiturá a pagina "HOME" que o usuário esta utilizando, por exemplo eu aqui uso o google como pagina inicial... sendo assim, quando eu abro o meu navegar, é necessário digitar algo para que ele funcione, gostária que ele pega-se a pagina inicial do usuário e executa-se automaticamente com aquele indereço...

Porem ainda sou iniciante e não sei fazer isso!!!

Abraços..

Espero que me ajudem..

[Guest Visitante]

Haa...

No seguinte codigo:

if Key = VK_RETURN then
web.Navigate(Edit1.Text);

web é o meu TWebBrowser!!

Abraços..

[Jhonas]

procure pelos exemplos do delphi ( tem o que voce esta querendo ) ... no delphi 5 esta em:

C:\Arquivos de programas\Borland\Delphi5\Demos\Coolstuf

no delphi 3 esta em:

C:\Arquivos de programas\Borland\Delphi 3\Demos\COOLSTUF

abraço