[Tutorial Delphi] Navegador Básico !

[SNLM 0]

Olá hoje voltei com o tutorial de como criar um navegador simple em Delphi

 

 

Vamos criar?

 

Primeiramente abra o Delphi,Adicione:1 Panel.

 

Clique nele e em Object Inspetor vá em Caption e apague para não ficar nada sobreposto os Buttons depois.

 

Depois vá em Align e coloque em AlTop (para ficar no topo do programa).

 

Depois vá na aba Internet e adicione um Web Browser,agora na em Object Inspetor e em Align deixe AlClient,Vá em Name e deixe somente Web o nome.

 

 

Agora adicione 5 Buttons,organize-os.Adicione um Edit no Meio do Panel

 

Ficando Assim Button1 Button 2 Button 3 (Edit) Button4 Button 5.

 

No edit você podera deixar uma paginal inicial do seu navegador,é só colocar a url em Text.

 

Organize dessa forma !

 

 

Vamos CODAR?

 

Clique no edit/events, e va em OnKeyDown e clique 2x.Digite isso para Codar!

 

if Key = VK_RETURN

then web.Navigate(Edit1.Text);

 

Clique 2x no Button Entrar e Adicione o Seguinte Código !

 

web.navigate (edit1.text);

 

Clique 2x em Parar e adicione o seguinte código !

 

web.stop;

 

Clique 2x em Atualizar e adicione o seguinte código !

 

web.Refresh;

 

Clique 2x em Avançar e adicione o seguinte código

 

web.GoForward;

 

Clique 2x sobre Voltar e adicione o seguinte código !

 

web.GoBack;

 

Se você quiser poderá mudar Icones e essas coisas de Mostrar o nome do processo corretamente .

 

OBS:Quando você criar a Form porá mudar o nome do seu navegador indo em Caption.

 

Bom é isso pessoal fico por aqui Vlw!

Se ajudei Agradeça Por Favor ! Não Custa Nada =(

[Sr.of Death 457]

Obrigado por compartilhar!

Mas acho que já existe topicos parecidos com este...

Uma dica:

1. 
   
2. Coloque mais Prints.
   
3. Coloque cor no topico.