如何实现Twebbrowser控件的滚动条为Flat平面的，而不是3D的？

lbsoft 2001-09-11 04:09:54

...全文

137 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

ChinaOk 2002-04-24

打赏
举报

上面的代码出现乱码
用下面这个。

tmpIe:=TEmbeddedWB.Create(tmpPnl); //
tmpPnl.BevelOuter:=bvNone;
tmpIe.ParentWindow:=tmppnl.Handle;
tmpIe.RegisterAsDropTarget:=true;
tmpIe.Dock(tmpPnl,a);
tmpIe.Align:=alClient;
tmpIe.Visible:=true;
tmpIe.UserInterfaceOptions:=[OPENNEWWIN,FLAT_SCROLLBAR,URL_ENCODING_ENABLE_UTF8,ENABLE_FORMS_AUTOCOMPLETE,ENABLE_INPLACE_NAVIGATION,IME_ENABLE_RECONVERSION];
// tmpIe.OnTitleChange:=websTitleChange;
// tmpIe.Silent:=true;
// tmpIe.UserInterfaceOptions:=[DIALOG,OPENNEWWIN,FLAT_SCROLLBAR,URL_ENCODING_ENABLE_UTF8,ENABLE_FORMS_AUTOCOMPLETE,ENABLE_INPLACE_NAVIGATION,IME_ENABLE_RECONVERSION];
tmpIe.OnDownloadComplete:=websDownloadComplete; //下载完成
// tmpIe.Name:=inttostr(ID);
// webBrowser.OnTitleChange:=webtitlechange; //标题控制
{ webBrowser.OnStatusTextChange:=WebStatusTextChange; //状态栏显示连接
webbrowser.OnDownloadBegin:=Webdownloadbegin; //开始下载
webbrowser.OnProgressChange:=webprogresschange; //下载中...
webbrowser.OnNewWindow2:=newwindow; //新窗口
webbrowser.OnBeforeNavigate2:=beforenav; //开始新窗口
webbrowser.OnNavigateComplete2:=webNavigateComplete2;

ChinaOk 2002-04-24

打赏
举报

tmpIe:=TEmbeddedWB.Create(tmpPnl); //
tmpPnl.BevelOuter:=bvNone;
tmpIe.ParentWindow:=tmppnl.Handle;
tmpIe.RegisterAsDropTarget:3Dtrue;
tmpIe.Dock(tmpPnl,a);
tmpIe.Align:=alClient;
tmpIe.Visible:=true;
tmpIe.UserInterfaceOptions:3D[OPENNEWWIN,FLAT_SCROLLBAR,URL_ENCODING_ENABLE_UTF8,ENABLE_FORMS_AUTOCOMPLETE,ENABLE_INPLACE_NAVIGATION,IME_ENABLE_RECONVERSION];
// tmpIe.OnTitleChange:=websTitleChange;
// tmpIe.Silent:=true;
// tmpIe.UserInterfaceOptions:=[DIALOG,OPENNEWWIN,FLAT_SCROLLBAR,URL_ENCODING_ENABLE_UTF8,ENABLE_FORMS_AUTOCOMPLETE,ENABLE_INPLACE_NAVIGATION,IME_ENABLE_RECONVERSION];
tmpIe.OnDownloadComplete:=websDownloadComplete; //下载完成
// tmpIe.Name:=inttostr(ID);
// webBrowser.OnTitleChange:=webtitlechange; //标题控制
{ webBrowser.OnStatusTextChange:=WebStatusTextChange; //状态栏显示连接
webbrowser.OnDownloadBegin:=Webdownloadbegin; //开始下载
webbrowser.OnProgressChange:=webprogresschange; //下载中...
webbrowser.OnNewWindow2:=newwindow; //新窗口
webbrowser.OnBeforeNavigate2:=beforenav; //开始新窗口
webbrowser.OnNavigateComplete2:=webNavigateComplete2;

zhudy 2002-04-23