ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

Ajuda Com WebBrowser(Urgente)

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
Gabriel2mm
Novato
Novato


Registrado: Domingo, 25 de Março de 2012
Mensagens: 3

MensagemEnviada: Dom Mar 25, 2012 5:57 pm    Assunto: Ajuda Com WebBrowser(Urgente) Responder com Citação

Olá pessoal,essa é minha primeira vez que estou postando aqui, mais é por um caso extremo que eu tentei varias vezes e não consegui.Bom vamos lá.

Meu problema é o seguinte:

Eu tenho um navegador,que é feito em abas ou seja quando clico em um botão "+" ele adiciona um sTabSheet(do alpha control) e um web browser,em Um page control.
Até ai tudo bem, *mas quando eu ponho nos botões de voltar,avançar,parar,ir,home, ele faz isso com apenas um webbrowser e não com todos.* mas ele deve voltar apenas a pagina do PageControl que esta ativa um StabSheet. Voces podem me passar um codigo me explicando como deve fazer isso. Ficarei muito grato por isso.

Codigos que usei:

Criando sTabSheet + Web Browser dentro Do Page Control.


Citação:
var
ts : TsTabSheet;
wb: twebbrowser;
i: integer;
NewFrame : twebbrowser;
b : boolean;
tabsheet: tTabSheet;
webbrowser: twebbrowser;

begin
// Create new page
ts := TsTabSheet.Create(PageControl1);
ts.ImageIndex := PageControl1.PageCount;
ts.Caption :='Nova guia' + IntToStr(PageControl1.PageCount);
ts.PageControl := PageControl1;
// Change index of the page with '+' button
sTabSheet2.PageIndex := PageControl1.PageCount - 1;
// Show Close button on active tab
PageControl1.ActivePage.UseCloseBtn := True;

//Criando navegador na web
webbrowser := twebbrowser.Create(ts);
twincontrol(webbrowser).Name := 'WebBrowser' + inttostr(i + 1);
webbrowser.Align := alclient;
twincontrol(webbrowser).Parent := ts;
sStatusBar1.Panels[0].Text:=text;

end;



Botões voltar,avançar,ir,para,home,imprimir,vizualizar impressão,configuração da pagina:
Citação:
Citação:

Botão Voltar:
webbrowser.goback;

Avançar:
webbrowser.GoForward;
e Assim vai.


Botões de imprimir:(uso um unit chamdo WB Encontrei na net);


Não contem Var;
Citação:
begin
WB_ShowPrintDialog(WebBrowser);
E assim vai com esse tbm.
end;


E Eu preciso desse web browser para um softwar que estou desenvolvendo.Por favor me ajudem.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Gabriel2mm
Novato
Novato


Registrado: Domingo, 25 de Março de 2012
Mensagens: 3

MensagemEnviada: Seg Mar 26, 2012 12:48 pm    Assunto: Respodam Responder com Citação

Ajudem ai por favor! ninguem vai me responder?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Gabriel2mm
Novato
Novato


Registrado: Domingo, 25 de Março de 2012
Mensagens: 3

MensagemEnviada: Qui Nov 07, 2019 4:08 pm    Assunto: Responder com Citação

Já consegui muito obrigado !!! fiz em .NET pq agora eu sou foda
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
johnny-walker
Moderador
Moderador


Registrado: Sábado, 4 de Outubro de 2003
Mensagens: 10527
Localização: Contagem/MG - BRAZIL

MensagemEnviada: Qui Nov 21, 2019 1:29 pm    Assunto: Responder com Citação

Dê uma olhada neste site que tem tudo a respeito do webbrowser:


https://www.cryer.co.uk/brian/delphi/twebbrowser/get_HTML.htm



bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB