如何去掉Twebbrower中的滚动条?(100分)

  • 主题发起人 主题发起人 kmgyl
  • 开始时间 开始时间
K

kmgyl

Unregistered / Unconfirmed
GUEST, unregistred user!
用TWebbrowser 浏览主页如何去掉右边,下边的滚动条,好象没有scrollbar 属性啊??

谢谢
 
你要是查查已答问题这100分就省了,呵呵
WebBrowser1.oleobject.Document.body.Scroll := 'no';
 
一个代码,借你这里放一下,呵呵

uses里要加activex
var
htmldoc: IHTMLDocument2;
wb: twebbrowser;
MaxScrollHeight:integer;
begin
speed:=webbrowser1.Height;
WB := WebBrowser1;
if wb <> nil then
begin
htmldoc := wb.Document as IHTMLDocument2;
MaxScrollHeight := htmldoc.body.getAttribute('ScrollHeight', 0);
ScrollHeight := ScrollHeight + speed;
//if ScrollHeight < MaxScrollHeight then
htmldoc.Get_ParentWindow.ScrollBy(0, speed)

end;
 
后退
顶部