来自：CathyEagle, 时间：2003-1-1 0:59:00, ID：1552928

用过TEmbeddedWB的OnGetHostInfo事件吧？

function TForm1.EmbeddedWB1GetHostInfo(var pInfo: TDOCHOSTUIINFO): HRESULT;

begin

 with pInfo do

 begin

   cbSize := SizeOf(pInfo);

   dwFlags := $000040000;//DOCHOSTUIFLAG_THEME

 end;

 Result := S_OK;

end;

1.EmbeddedWB如何在XP下有主题视觉效果。

IDocHostUIHandler::GetHostInfo

typedef struct _DOCHOSTUIINFO {

   ULONG cbSize;

   DWORD dwFlags;

   DWORD dwDoubleClick;

   OLECHAR *pchHostCss;

   OLECHAR *pchHostNS;

} DOCHOSTUIINFO;

dwFlags

One or more of the DOCHOSTUIFLAG values that specify the UI capabilities

of the host.

DOCHOSTUIFLAG Enumerated Type

------------------------------------------------------------------------------

Defines a set of flags that indicate the capabilities of an IDocHostUIHandler

implementation.

Syntax

typedef enum tagDOCHOSTUIFLAG {

   ……,

   DOCHOSTUIFLAG_THEME = 0x00040000,

   DOCHOSTUIFLAG_NOTHEME = 0x00080000,

   DOCHOSTUIFLAG_NOPICS = 0x00100000,

   DOCHOSTUIFLAG_NO3DOUTERBORDER = 0x00200000

} DOCHOSTUIFLAG;

Constants

DOCHOSTUIFLAG_THEME  

Internet Explorer 6 or later. Specifies that the hosted browser should use

themes for pages it displays.

DOCHOSTUIFLAG_NOTHEME  

Internet Explorer 6 or later. Specifies that the hosted browser should not

use themes for pages it displays.

DOCHOSTUIFLAG_NOPICS  

Internet Explorer 6 or later. Disables PICS ratings for the hosted browser.

DOCHOSTUIFLAG_NO3DOUTERBORDER  

Internet Explorer 6 or later. Turns off any 3-D border on the outermost frame

or frameset only. To turn borders off on all frame sets, use DOCHOSTUIFLAG_NO3DBORDER