WebBrowser在XP下的视觉主题

来自：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