Botão P/ ADD nova Aba (NAVEGADOR)

por Mr.Positive Qua Jan 12, 2011 4:27 pm

Botão para Add nova aba

Add simultaneamente uma nova aba para seu navegador.
PS:Configurei para responder ao comando WebBrowser1,modifique a seu gosto.
~Crie um novo TabSheet1 e o coloque acima de WebBrowser(ou o nome que voce colocou para navegar na Web)~
e crie um PageControl.
Agora crie um botao com o nome de Nova Aba em seu navegador.

Agora no Botão que voce criou Adicione o seguinte codigo:

var
tabsheet: tTabSheet;
webbrowser: twebbrowser; // se voce nomeu o webbrowser com outro nome modifique
i: integer;
begin
i := PageControl1.PageCount;
tabsheet := TtabSheet.Create(pagecontrol1);
tabsheet.Caption := '~Athos~' + inttostr(i + 1); // onde esta ~Athos~ é o nome que ira aparecer na aba muda pra Nova Aba
tabsheet.name := 'TabSheet' + inttostr(i + 1); // define se ira começar do numero 1, numero 2 ira ser + 2
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;

PS:Mais uma vez eu digo eu fiz para poder colocar em seu navegador ,funciona perfeitamente.