Criando Navegar em Delphi - Parte II

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nesta Quick como criar um navegador em delphi


Olá pessoal , vamos dar continuidade neste artigo à criação do navegador web iniciado no ultimo post.  Hoje veremos a configuração da barra de navegação, que abrigará os botões básicos de navegação e a Barra de Endereço.

Inicialmente adicione ao formulário um componente  “ToolBar” que deverá ser posicionado logo abaixo do Menu, caso não seja, altere a propriedade Align para “alTop” . Aponte a propriedade Images para o ImageList já presente.Clique com o botão direito na ToolBar e observe que você pode incluir novos botões e separadores para os mesmos, portanto , faça  como na imagem abaixo, atentando para inserir também o ComboBox que servirá como Barra de Endereços.

<<<<<<<<Foto da barra de navegação>>>>>>>>>>>.

Feito isso configure os botões adicionados através da propriedade “Action” dos mesmos, logo os botões automaticamente assumirão as propriedades das Actions que criamos anteriormente. Lembre-se sempre desta manobra pois irá poupar significativamente o seu tempo em aplicações mais extensas. Feito isso, altere a propriedade Name do ComboBox para cbURL  e também a propriedade Text  para o endereço de qualquer site de sua preferência que servirá como pagina Home para sua aplicação.

Inclua agora um componente “ WebBrowser”  na aplicação, alterando o Align para “alClient”, este elemento será onde exibiremos a página web. Logo em seguida inclua um componente StatusBar, clique com o botão direito sobre ele e escolha “Panels Editor”. Na janela que se abrirá adicione três panels observando a configuração da propriedade Width da seguinte forma:

StatusPanel1 – width =  300;

StatusPanel2   width = 120;

Status Panel 3 – width = 150.

Adicione um componente ClienteDataSet  e altere o name para CDSUrl. Vá na propriedade FileName, clique no botão ao final do edit. Na janela que se abrirá salve o arquivo como “URL.xml” , e atenção, faça desta forma, com a extensão, pois caso esqueça o delphi salvará o arquivo como sendo um binário simples.

Pronto, o layout do navegador está completo. Vamos agora iniciar a implementação da lógica:

Vamos iniciar com a codificação das actions, dê um duplo clique no ActionList e novamente um duplo clique em cada uma das actions, abrindo assim a implementação do evento onExecute de cadas uma delas. De início as da Category “Navegação”:

Avançar

begin

  try

    Navegador.goforward;

  except

  end;

Voltar

begin

  try

    Navegador.GoBack;

  except

  end;

Ir

begin

  Navegador.Navigate(cbUrl.Text);

  if CDSUrl.Locate('URL', cbUrl.Text, [loCaseInsensitive]) then

    Exit // a url já esta gravada, ativa!

  else

    GerenciarURL; // A Url não está gravada

 

  CarregaCombo; // Atualiza a url no combo

end;

Parar

Begin

 try

    Navegador.Stop;

  except

  end;

Muito bem,no próximo artigo daremos continuidade a codificação do nosso web browser, obrigado pela atenção e bons estudos.

Jefferson Araújo.

Contato: tecjefferson@hotmail.com


 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?