|
ActiveDelphi .: O site do programador Delphi! :.
|
Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
Gabriel2mm Novato
Registrado: Domingo, 25 de Março de 2012 Mensagens: 3
|
Enviada: Dom Mar 25, 2012 5:57 pm Assunto: Ajuda Com WebBrowser(Urgente) |
|
|
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 |
|
|
Gabriel2mm Novato
Registrado: Domingo, 25 de Março de 2012 Mensagens: 3
|
Enviada: Seg Mar 26, 2012 12:48 pm Assunto: Respodam |
|
|
Ajudem ai por favor! ninguem vai me responder? |
|
Voltar ao Topo |
|
|
Gabriel2mm Novato
Registrado: Domingo, 25 de Março de 2012 Mensagens: 3
|
Enviada: Qui Nov 07, 2019 4:08 pm Assunto: |
|
|
Já consegui muito obrigado !!! fiz em .NET pq agora eu sou foda |
|
Voltar ao Topo |
|
|
johnny-walker Moderador
Registrado: Sábado, 4 de Outubro de 2003 Mensagens: 10653 Localização: Contagem/MG - BRAZIL
|
|
Voltar ao Topo |
|
|
|
|
Enviar Mensagens Novas: Proibido. Responder Tópicos Proibido Editar Mensagens: Proibido. Excluir Mensagens: Proibido. Votar em Enquetes: Proibido.
|
|