Tutorial Criando Navegador Simples em Delphi

[Sophos]

Criando Navegador Simples

Sei que alguem ja criou um topico como esse mas ta todo sem imagens:
Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...

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"

Ficará mais ou menos assim:

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

Codigo:

webbrowser1.GoBack;

Veja a imagem abaixo:

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

Codigo:

webbrowser1.GoForward;

Veja a imagem abaixo:

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

Codigo:

webbrowser1.Stop;

Veja a imagem abaixo:

Depois de dois cliques em Atualizar e coloque o codigo

Codigo:

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.

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...
Veja a imagem do navegador pronto:


Download do Navegador que eu fiz: Apenas usuários registrados e ativados podem ver os links., Clique aqui para se cadastrar...

Fonte: webcheats