Buscar por:

Fazendo um web browser

Código

{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;