Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Anderson Nunes

TWebBrowser - Ocultar ScrollBar

Por , em Delphi

Recommended Posts

Anderson Nunes    0

Anderson Nunes
Postado

Ola Galera, alguem sabe uma forma de ocultar as barras de rolagem do webbrowser do delphi7. Ja tentei de varias formas e nenhuma funciona direito. Usei a rotina abaixo de um site americano e até funcionou com a barra horizontal mas a vertical continua lá. Não sei mais o que fazer.

 

  WebBrowser1.OleObject.Document.Body.Style.OverflowX := 'hidden';
  WebBrowser1.OleObject.Document.Body.Style.OverflowY := 'hidden';

Obs, ja me sugeriram para usar um panel, uma imagem, etc, mas o que preciso é de uma solução concreta pois estou criando um componente.

Obrigado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

FADSystem    0

FADSystem
Postado

Bom dia,

 

Anderson Nunes

 

 

No Events OnDocumentComplete adicione:

 

WebBrowser1.OleObject.Document.body.Scroll:= 'no';

 

ou

 

//será exibido se necessário

WebBrowser1.OleObject.Document.body.Scroll:= 'auto';

 

Atenciosamente,

 

 

Fabio Araujo Damascena

Compartilhar este post

Link para o post
Compartilhar em outros sites

INTUITO BINÁRIO    0

INTUITO BINÁRIO
Postado

pessoal tentei aqui os dois codigo, mas da um erro fatal. o que pode ser? http://forum.imasters.com.br/public/style_emoticons/default/natal_sad.gif

o erro que rodando o .exe é:

 

ACCES VIOLATION AT ADDRESS 0046C4F3 IN MODULE'MAE.EXE'; READ OF ADDRESS 0000000.

 

o códio é este aqui:

procedure Tfrm_mae.FormCreate(Sender: TObject);

begin
 statusbar2.Panels.Items[2].Text :=datetostr(date);
 WebBrowser1.OleObject.document.body.Scroll:= 'no';
 webbrowser1.Navigate('C:\xampp\htdocs\Desenvolvimento\Software MMDC\web\index.html');
 end;
procedure Tfrm_mae.Clientes1Click(Sender: TObject);
begin
webbrowser1.Navigate('http://sintonia87.com.br');
end;

Compartilhar este post

Link para o post
Compartilhar em outros sites

Anderson Nunes    0

Anderson Nunes
Postado

Olá, tente esta rotina.

 

procedure TForm1.sButton1Click(Sender: TObject);

var pagina: IHTMLDocument2;

begin tag := 0; WebBrowser1.Navigate('http://www.google.com.br');

while (tag = 0) do

Application.ProcessMessages;

WebBrowser1.OleObject.document.Body.Scroll := 'no';

pagina := WebBrowser1.Document as IHTMLDocument2;

pagina.Get_Parentwindow.ScrollBy(0, 0);

end;

 

depois no evento:

 

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

begin

tag := 1;

end;

 

declare na uses a unit mshtml.

 

Sinceramente, a unica coisa que funcionou para mim foi remover as bordas dentro do próprio documento html, tentei de tudo, inclusive esta rotina. Pesquise sobre como fazer em foruns de html. Falou..

Compartilhar este post

Link para o post
Compartilhar em outros sites

INTUITO BINÁRIO    0

INTUITO BINÁRIO
Postado

Olá, tente esta rotina.

 

procedure TForm1.sButton1Click(Sender: TObject);

var pagina: IHTMLDocument2;

begin tag := 0; WebBrowser1.Navigate('http://www.google.com.br');

while (tag = 0) do

Application.ProcessMessages;

WebBrowser1.OleObject.document.Body.Scroll := 'no';

pagina := WebBrowser1.Document as IHTMLDocument2;

pagina.Get_Parentwindow.ScrollBy(0, 0);

end;

 

depois no evento:

 

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;

const pDisp: IDispatch; var URL: OleVariant);

begin

tag := 1;

end;

 

declare na uses a unit mshtml.

 

Sinceramente, a unica coisa que funcionou para mim foi remover as bordas dentro do próprio documento html, tentei de tudo, inclusive esta rotina. Pesquise sobre como fazer em foruns de html. Falou..

 

 

 

Cara viajei aqui, hehehehehhehe

realmente voce tem razão!

e so ir na <body> do html e declarar falso para o scroll...... http://forum.imasters.com.br/public/style_emoticons/default/natal_laugh.gif

 

seria assim:

 

<body scroll="no">

proto! fácio né! agente acha que tudo tem que ser no delphi ne hahahahahha

vl2w amigo!!!!!!! Feliz natal e um prospero ano novo!

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos Delphi
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito