Criando um Navegador Simples

Bem,eu dei uma olhada pelo fórum e não encontrei...Então,mais um daqueles meus tutoriais detalhados a ponto de qualquer um entender e fazer!Esse navegador na verdade tem base no Internet Explorer,ou seja,não é um navegador único como Firefox,Google Chrone,etc...

-Índice

-Material Necessário
-Componentes
-Código Fonte
-Créditos

-Material Necessário
-Compilador Borland Delphi 7 ; Não tem?Faça download Clicando Aqui!
-Mínimo Conhecimento em Delphi ; O Tutorial estará o mais detalhado possível,não precisará de muito conhecimento.
-Ler com Atenção ; Leia todo o tutorial para evitar perguntas inúteis(Praticamente respondidas na postagem).

-Componentes
Adicione um Panel - Aba Standard


Vamos ajustar algumas propriedades desse componente, para que ele fique no topo, e sem o texto Panel1 dentro. Clique uma vez nele para selecioná-lo, e no Object Inspector , localize a propriedade Caption. Remova o texto dela.



Para que esse painel fique alinhado na parte superior da tela, localize nessa mesma janela(Object Inspector) a propriedade Align, e deixe com o valor AlTop como na imgem:



Agora insira o componente TWebBrowser. Ele fica na Paleta(Aba) Internet dos componentes do Delphi, normalmente é o último dessa guia. Não o insira dentro do painel, mas sim fora, ou seja, clique nele uma vez, depois clique na área livre do formulário.Agora,altere a propriedade Align(Também no Object Inspector) para AlClient.Veja:



Agora,Coloque 5 componentes Buttons(Botões) , 1 Edit (Campo Editável de texto).Agora,altere a propriedades de cada componente desta maneira:
Button1(Voltar) ; Altere o Caption para <.
Button2(Avançar) ; Altere o Caption para >.
Button3 ; Altere o Caption para Atualizar.
Button4 ; Altere o Caption para Entrar.
Button5 ; Altere o Caption para Parar.
Edit1 ; Limpe o Text.



-Código Fonte
Depois de adicionado todos os Componentes agora vamos colocar o Código Fonte de cada um deles.
Dê Dois Cliques no primeiro botão(<) e insira os códigos a seguir.

Código:

webbrowser1.GoBack;

Dê Dois Cliques no Segundo botão(>) e insira os seguintes códigos.

Código:

webbrowser1.GoForward;

Dê Dois Cliques no Teiceiro botão(Atualizar) e insira os códigos:

Código:

webbrowser1.Refresh;

Dê Dois Cliques no Quarto botão(Entrar) e insira os códigos:

Código:

webbrowser1.Navigate(Edit1.Text);

Dê Dois Cliques no Quinto botão(Parar) e insira os códigos:

Código:

 Webbrowser1.Stop

Pronto!Se quiser fazer uma HomePage(Página onde o navegador começa),Procure no Object Tree View(não é Object Inspector!É o que está acima dele!)por Form1 e dê dois cliques.Agora,adicione os códigos:

Código:

webbrowser1.Navigate('http://www.google.com.br/');
edit1.Text:=('htpp://www.google.com.br/');

No caso,a HomePage é o Google!Para alterar apenas modifique a parte da URL(http://......com.br/).

-Créditos
Não venha aqui dizer que eu copiei o tópico de alguém!Esses códigos eu tinha quase decorado,apenas relembrei com uma ajudinha do Google