[Delphi] Criando Um Navegador De Internet ...

[adrianoxssx 2]

Olá Bom Dia, Boa Tarde, Boa Noite ...

 

Hoje Estou Aqui, Na Minha Casa/No Meu Computador/No Forun Da Web Cheats/Delphi/VB/+Post Para Ensinar A Como Fazer Um Navegador De Internet

Nao É Muito Util Mas É Legal ...

 

Ok Vamos Lah

 

1° Passo :

 

Abra O Delphi

 

 

2° Passo :

 

Vá Em < File > < New > < **** >

 

 

3° Passo :

 

Na Aba Standard Adicione Os Seguintes ... ( 4 Buttons ( Botão ), 1 Edit E 1 Panel ).

 

 

No Panel Faça A Seguinte Coisa : Clique Nele Apague O '' Caption '', Dps Proucure Por '' Align '', Clique Numa Setinha Apontando Para Baixo E Dps Em '' alTop ''

 

 

Ficando Assim :

 

 

Agora Coloque Tudo ( Os Buttons ( Botão ) E O '' Edit '' ) Dentro Do Panel

 

 

Ficando Assim :

 

 

Agora Na Aba Internet Adicione O Seguinte ... '' WebBrowser ''

 

Agora Clique No '' WebBrowser '' (Apenas 1 Vez ) E Procure Por '' Aling '' Clique Na Setinha Apontando Para Baixo E Dps En alCrient

 

 

Ficando Assim :

 

 

4° Passo :

 

Clique No '' F-o-r-m-1 '' Duas Vezes :

 

 

Ficando Assim :

 

 

Agora Apague Tudo Tudo Tudooo

 

Agora So Cola O Codigo :

 

Obs.: Antes De Cola O Codigo Renomei O '' WebBrowser '' Para '' web '' Ok? Não Se Esqueça ! ( Vcs Sabem Renomeia ... '-' Se Não Saberen Tbm En :risada: )

Mas Ai Vai ( Clique No WebBrowser ( Apenas 1 Clique ) , E Em Name Escreva '' web '' Td Minusculo ! E Só ...

 

Codigo :

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls;

 

type

TForm1 = class(TForm) Panel1: TPanel; Edit1: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Panel2: TPanel; web: TWebBrowser; procedure Button4Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormShow(Sender: TObject);

private { Private declarations }

public { Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button4Click(Sender: TObject);

begin

web.Navigate(Edit1.Text);

edit1.Text:=(edit1.text);

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

web.GoBack;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

web.GoForward;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin web.Refresh;

end;

 

procedure TForm1.FormShow(Sender: TObject);

begin web.Navigate('www.google.com.br');

edit1.Text:=('www.google.com.br');

end;

 

end.uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls;

 

type

TForm1 = class(TForm) Panel1: TPanel; Edit1: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Panel2: TPanel; web: TWebBrowser; procedure Button4Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormShow(Sender: TObject);

private { Private declarations }

public { Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.Button4Click(Sender: TObject);

begin

web.Navigate(Edit1.Text);

edit1.Text:=(edit1.text);

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

web.GoBack;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

web.GoForward;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin web.Refresh;

end;

 

procedure TForm1.FormShow(Sender: TObject);

begin web.Navigate('www.google.com.br');

edit1.Text:=('www.google.com.br');

end;

 

end.

 

 

Pronto Agora De F9 E Se Divirtan Com Seu Novo ... Não Sei O Nome '-' Até Meu Proximo Topico E :corado:

 

Byeee

 

@Edit

 

Post Do Navegador De Internet !

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[-Vulnera 3]

Ei amigo, você poderia me ajudar? quando eu coloco os bottons e o E.dit dentro do panel eles somem como se ficasse atrás pode me ajudar?

[NoSlake 56]

Ei amigo, você poderia me ajudar? quando eu coloco os bottons e o E.dit dentro do panel eles somem como se ficasse atrás pode me ajudar?

 

Não entendi sua dúvida direito, mas vou responder, corrija-me se estiver errado.

 

Na hora de colocar os button faça o seguinte:

Coloque a Panel + Align = AlTop (como no tutorial).

Na hora de adicionar os buttons e tal, clique na palheta, clique no button, e insira-o encima do TPanel

 

Abraços.

[-Vulnera 3]

@'Victor~* não deu certo

[adrianoxssx 2]

Coloque Primeiro O Panel Faz Como Está Lah < Aling > Clique Na Setinha > E Em alTop < Dps Coloque Os '' Edit, Buttons'' Etc

['Pedro ~ 0]

Existe vários tutoriais de criar um navegador e bem mais completo, mas valeu a intenção!

[NoSlake 56]

@'Victor~* não deu certo

 

 

Tem como passar print ou um curto vídeo...

Porque eu não estou entendendo...

Sempre que você colocar o Panel em Align=AlTop

e colocar os Edit/Button/Combobox em cima vai funcionar....

Só que na hora de inserir o componente tem que ser encima do TPanel!