Sistema De Abas Para Navegadores [Delphi]

[josue1602 0]

Aew pessoal hj vo tah explicando como fazer um sistema de abas para navagadores vamos lá

 

1º Adiciono Um WebBrowser - Aba Internet

2º 1 PageControl - Aba Win 32

3º 2 Button - Aba Standard

4º 1 Edit - Aba Standard

 

Organiza Tudo Certinho Como Vc Desejar OBS: Deixe O Page Control Em Cima Do Web Browser e Alinhe Os Dois Do Mesmo Tamanho

 

E No Evento OnClick Do Button 1 Vc Adiciona A Seguinte Linha De Code:

var

tabsheet: tTabSheet;

webbrowser: twebbrowser;

i: integer;

begin

i := PageControl1.PageCount;

tabsheet := TtabSheet.Create(pagecontrol1);

tabsheet.Caption := 'Nova Aba' + inttostr(i + 1);

tabsheet.name := 'TabSheet' + inttostr(i + 1);

tabsheet.PageControl := PageControl1;

pagecontrol1.ActivePage := tabsheet;

 

webbrowser := twebbrowser.Create(tabsheet);

twincontrol(webbrowser).Name := 'WebBrowser' + inttostr(i + 1);

webbrowser.Align := alclient;

twincontrol(webbrowser).Parent := tabsheet;

end;

 

Esse Botão Serve Para Adicionar Um TabShet Uma Aba

 

Agora No Envento OnClick Do Segundo Button Adicione A Seguinte Linha De Code:

var

i:integer;

begin

for i:=0 to PageControl1.ActivePage.ComponentCount-1 do

begin

if PageControl1.ActivePage.Components is TWebBrowser then

TWebBrowser(PageControl1.ActivePage.Components).Navigate(edit1.Text);

end;

end;

 

Esse Serve Para Detectar a Aba e Ir Para o Link Que Vc Digitar No Edit1.

 

Agora No Evento OnCreate Da Form1 Adicione A Seguinte Linha De Code:

var

tabsheet: tTabSheet;

webbrowser: twebbrowser;

i: integer;

begin

i := PageControl1.PageCount;

tabsheet := TtabSheet.Create(pagecontrol1);

tabsheet.Caption := 'Nova Aba' + inttostr(i + 1);

tabsheet.name := 'TabSheet' + inttostr(i + 1);

tabsheet.PageControl := PageControl1;

pagecontrol1.ActivePage := tabsheet;

 

webbrowser := twebbrowser.Create(tabsheet);

twincontrol(webbrowser).Name := 'WebBrowser' + inttostr(i + 1);

webbrowser.Align := alclient;

twincontrol(webbrowser).Parent := tabsheet;

end;

Esse Serve Para Que Quando Vc Abra Seu Projeto Já Abra Uma Aba Automaticamente.

 

Gostou? Agradeça

[' Fire~* 0]

Irá ajudar muita gente,poderia ter colocado umas SS pra ficar de mais fácil entendimento.

[josue1602 0]

Irá ajudar muita gente,poderia ter colocado umas SS pra ficar de mais fácil entendimento.

 

Sim Sim. Não Colocei Porq Não Estou Em Casa E Aqui Num Tem Delphi Mais Tarde Colocarei

[DragonBoss 8]

boa.. bem legal.. algo simples, facil de fazer, mas ke dexa o programa bem mais bonito =]

gostei do topico, beem explikado ^^

 

flw, abraçs