Você não está conectado. Conecte-se ou registre-se

[DELPHI] Criando navegador básico

Ver o tópico anterior Ver o tópico seguinte Ir em baixo  Mensagem [Página 1 de 1]

1 [DELPHI] Criando navegador básico em Sex Fev 12, 2010 2:02 pm

dr olk


Admin
Do que precisaremos:

1 webbrowser (na paleta internet)
5 Buttons
1 Edit

1)Clique no edit e em object inspector na propriedade TEXT deixe-a em branco

2)Clique no button1 e em object inspector na propriedade CAPTION coloque ACESSAR

3)Clique no button2 e em object inspector na propriedade CAPTION coloque VOLTAR

4)Clique no button3 e em object inspector na propriedade CAPTION coloque AVANÇAR

5)Clique no button4 e em object inspector na propriedade CAPTION coloque PARAR

6)Clique no button5 e em object inspector na propriedade CAPTION coloque ATUALIZAR

7)De dois cliques no primeiro button..você vai perceber que ele cria uma procedure +/- assim

procedure TForm1.Button1Click(Sender:TObject);
begin

end;

8)Então todos os codigos deverão ser colocados entre o begin e o end;

9)Segue o codigo

Button1:
if (Edit1.Text='') then
begin
Showmessage('Digite o site');
abort;
end //Tutorial by Joseph
else
Webbrowser1.Navigate(Edit1.Text);

Button2:
[b]WebBrowser1.GoBack;

Button3:
webbrowser1.GoForward;

Button 4:
webbrowser1.Stop;

Button5:
WebBrowser1.Refresh;

Agora clique no WEBBROWSER e em object inspector clique em EVENTS
No 3° evento esta escrito assim OnDocumentComplete
De dois cliques no campo do lado dele
e vai abrir a paleta de codigos
agora poe assim entre o begin e o end;

Edit1.Text:=URL;


Tutorial by Joseph

Ver perfil do usuário http://forumyakuza.ativoforum.com

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum