quarta-feira, 2 de setembro de 2009

Fazendo um web browser

{Para construir um Internet browser, coloque um Panel com alinhamento ao topo de seu form. Dentro do panel, insira um Combobox e um Button ou um Bitbtn.

Da nova paleta de componentes internet, pegue um componente HTML e alinhe-o na área restante de seu form.

Use o combobox para escrever o endereço do site internet que você quer visitar. Use o button para entrar na página, você também pode dar um evento onkeypress para o Combobox e usar o enter para acessar a página, adicione a seguinte linha de código ao button}


HTML.RequestDoc(Combobox1.Text); {Está pronto o seu browser, agora só falta incrementar.

Para facilitar seu controle de navegação, crie um Panel alinhado na parte de baixo do form e use um label para mostrar a página que está sendo visitada. Use a propriedade URL e o evento OnDoRequestDoc para mostrar o status da conexão.


label1.caption := 'Contacting ' +URL; O combobox serve para guardar uma lista de todas as páginas web que você visitou. No evento OnBeginRetrieval do controle HTML, insira o seguinte código:}

with ComboBox1 do
if Items.IndexOf(HTML1.URL)<0 then
Items.Add(HTML1.URL);
Text := HTML1.URL;
SelectAll;

Nenhum comentário:

Postar um comentário