Criando seu próprio navegador ( BÁSICO )

[paulopkz 0]

Criando um navegador basico de internet

 

--------------------------------------------------------------------------------

 

Ae galera, Hj vim ensinar a vocês como criar um navegador de web simples...

 

Primeiramente vamos colocar em nossa Form1 o que vamos utilizar.

 

Primeiro coloque um Panel que se encontra na aba "Standard". E la em Object inspector, na opção "Caption" apague seu conteudo..

 

E na opção "Align" Você escolha a opção "alTop"

 

Seu Form1 ficará assim:

 

 

Após isso vamos colocar 5 Botões no panel e trocar o "Caption" deles para (Avançar/Voltar/Acessar/Atualizar/Parar)

 

Seu Form ficará mais ou menos assim:

 

 

Após isso vamos adicionar um "Edit" que se encontra na aba "Standard".

 

De 1 clique no Edit1 e vá em Object Inspector e mude a opção "Text" para o site que você deseja que seja a HomePage... Eu coloquei o Google... Só como exemplo.

 

Ficará mais ou menos assim:

 

 

Agora vamos na aba "Internet" e vamos adicionar em nosso Form1 um "WebBrowser". Depois de colocar ele, de um Clique nele e no Object Inspector, na opção Align mude para "alClient"

 

 

Agora vamos começar a configurar...

 

la em Object TreeView de um clique em "Form1" e mude o "Caption" para Navegador de Web, e na ultima opção WindowState mude para "wsMaximized"

isso significa que quando você abrir seu navegador ele ja ira abrir MAXIMIZADO... Depois de dois cliques no botão "VOLTAR" e coloque o Codigo

 

 

Código:

webbrowser1.GoBack;

e ficara assim:

 

 

Depois de Dois cliques no botão Avançar e coloque o codigo.

 

Codigo:

 

Código:

webbrowser1.GoForward;

Veja a imagem abaixo:

 

 

Depois de dois cliques no botão Parar e coloque o Codigo.

 

Codigo:

 

Código:

webbrowser1.Stop;

 

 

Depois de dois cliques em Atualizar e coloque o codigo

 

Codigo:

 

Código:

webbrowser1.navigate(edit1.Text);

 

Coloque o mesmo codigo em ACESSAR...

 

Veja a imagem abaixo:

 

 

 

 

Depois de dois cliques em "Edit1" e antes da palavra BEGIN insira o codigo

 

Codigo:

var Key: Word;

Depois logo abaixo de Begin insira o codigo.

If key = VK_RETURN then

webbrowser1.navigate(edit1.Text);

 

 

Pronto!

 

Agora seu navegador ja funciona... Caso queira que quando você abrir o navegador ele irá direto para a HomePage De dois cliques em "Form1" que se encontra na Object TreeView e insira o mesmo condigo do botão Acessar...

 

 

 

Esta pronto seu Navegador... espero q gostem!

__________________

Creditos

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

esse tutorial foi postado por Mr.M

[Owner 7]

Área errada !

Seria Delphi/VB não Cursos-Tutoriais

Vou comunicar um moderador pra mover o tópico.

 

#Tópico

Existem milhões de tópico deste aqui, porque não ensina a criar um navegador mais avançado e tudo mais !

Procure colocar coisas novas.

Vê se colocar entre

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[vmgd1997 0]

Gostei muito do seu topico, nao tinha nem noçao como fazer

[paulopkz 0]

obrigado...

 

mais o credito todo foi do M.mr no perucheats...

 

mais como eu gosto da webcheats postei aqui!!!!

[Lincon_ 2]

legal ! num sabia que era tão simples assim !

mas tipo o motor dele é bom ? ou fica lerdo esse navegador ?

[paulopkz 0]

Lincon_ eu nao testei....

 

apenas trouxe o tutorial caso alguem nao goste de usar nenhum dos navegadores existentes....

 

mais acho q issu depende de sua internet e dos sites visitados!

[allcohol 34]

Muito bom tutorial

mas vc tinha de explicar mais um pokim

pra alguns etende mas fikou muito bom!

Abrx:amor: