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

Question

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;

Answer 1

上面的代码出现乱码
用下面这个。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;