Sejam bem vindos ao nosso forum, onde havera hacks, utilitários tutoriais e dicas para diversos jogos, fique conosco e desfrute do melhor.

Botão P/ ADD nova Aba (NAVEGADOR)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Botão P/ ADD nova Aba (NAVEGADOR)

Mensagem por Mr.Positive em 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.

Mr.Positive
Membro
Membro

Mensagens : 40
Agradecimentos : 0
Data de inscrição : 12/01/2011
Idade : 21
Localização : Recreio
Humor : Feliz !
0 / 1000 / 100



Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

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