открыватьчужие ссылки в новом окне?

← →
DVM © (2008-05-23 23:30) [40]

> ivanov (23.05.08 22:39) [39]

Вот еще вариант, у меня не мелькает. Точнее мелькает несколько, но уже по другой причине, и это мелькает не старое оформление.

unit Main; interface uses Forms, Menus, OleCtrls, SHDocVw, Classes, Controls, StdCtrls, XPMan, UContainer, ExtCtrls, ShellAPI; type TMainForm = class(TForm) WebBrowser1: TWebBrowser; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); private fWBContainer: TWBContainer; end; var MainForm: TMainForm; implementation uses SysUtils, Windows, Graphics, Dialogs; {$R *.dfm} procedure TMainForm.FormCreate(Sender: TObject); var FmtCSS: string; // Stores default CSS begin FmtCSS := "body {"#13#10 + " background-color: red;"#13#10 + "}"; fWBContainer := TWBContainer.Create(WebBrowser1); fWBContainer.UseCustomCtxMenu := True; fWBContainer.Show3DBorder := False; fWBContainer.ShowScrollBars := False; fWBContainer.AllowTextSelection := False; fWBContainer.CSS := FmtCSS; fWBContainer.HostedBrowser.Navigate("http://www.delphimaster.ru/cgi-bin/forum.pl?n=4"); end; procedure TMainForm.FormDestroy(Sender: TObject); begin fWBContainer.Free; end; end.

← →
DVM © (2008-05-23 23:31) [41]

unit UContainer; interface uses Windows, ActiveX, ShDocVw, UNulContainer, IntfDocHostUIHandler; type TWBContainer = class(TNulWBContainer, IDocHostUIHandler, IOleClientSite) private fUseCustomCtxMenu: Boolean; fShowScrollBars: Boolean; fShow3DBorder: Boolean; fAllowTextSelection: Boolean; fCSS: string; protected { Re-implemented IDocHostUIHandler methods } function ShowContextMenu( const dwID: DWORD; const ppt: PPOINT; const pcmdtReserved: IUnknown; const pdispReserved: IDispatch): HResult; stdcall; function GetHostInfo( var pInfo: TDocHostUIInfo): HResult; stdcall; public constructor Create(const HostedBrowser: TWebBrowser); property UseCustomCtxMenu: Boolean read fUseCustomCtxMenu write fUseCustomCtxMenu default False; property Show3DBorder: Boolean read fShow3DBorder write fShow3DBorder default True; property ShowScrollBars: Boolean read fShowScrollBars write fShowScrollBars default True; property AllowTextSelection: Boolean read fAllowTextSelection write fAllowTextSelection default True; property CSS: string read fCSS write fCSS; end; implementation uses SysUtils, Themes; { TaskAllocWideString is taken from the CodeSnip database at http://www.delphidabbler.com/codesnip } function TaskAllocWideString(const S: string): PWChar; var StrLen: Integer; // length of string in bytes begin // Store length of string in characters, allowing for terminal #0 StrLen := Length(S) + 1; // Allocate buffer for wide string using task allocator Result := CoTaskMemAlloc(StrLen * SizeOf(WideChar)); if Assigned(Result) then // Convert string to wide string and store in buffer StringToWideChar(S, Result, StrLen); end; { TWBContainer } constructor TWBContainer.Create(const HostedBrowser: TWebBrowser); begin inherited; fUseCustomCtxMenu := False; fShowScrollBars := True; fShow3DBorder := True; fAllowTextSelection := True; fCSS := ""; end; function TWBContainer.GetHostInfo( var pInfo: TDocHostUIInfo): HResult; {These constants are defined in IntfUIHandlers const DOCHOSTUIFLAG_SCROLL_NO = $00000008; DOCHOSTUIFLAG_NO3DBORDER = $00000004; DOCHOSTUIFLAG_DIALOG = $00000001; DOCHOSTUIFLAG_THEME = $00040000; DOCHOSTUIFLAG_NOTHEME = $00080000; } begin try // Clear structure and set size ZeroMemory(@pInfo, SizeOf(TDocHostUIInfo)); pInfo.cbSize := SizeOf(TDocHostUIInfo); // Set scroll bar visibility if not fShowScrollBars then pInfo.dwFlags := pInfo.dwFlags or DOCHOSTUIFLAG_SCROLL_NO; // Set border visibility if not fShow3DBorder then pInfo.dwFlags := pInfo.dwFlags or DOCHOSTUIFLAG_NO3DBORDER; // Decide if text can be selected if not fAllowTextSelection then pInfo.dwFlags := pInfo.dwFlags or DOCHOSTUIFLAG_DIALOG; // Ensure browser uses XP themes if application is doing if ThemeServices.ThemesEnabled then pInfo.dwFlags := pInfo.dwFlags or DOCHOSTUIFLAG_THEME else if ThemeServices.ThemesAvailable then pInfo.dwFlags := pInfo.dwFlags or DOCHOSTUIFLAG_NOTHEME; // Record default CSS as Unicode pInfo.pchHostCss := TaskAllocWideString(fCSS); if not Assigned(pInfo.pchHostCss) then raise Exception.Create("Task allocator can""t allocate CSS string"); // Return S_OK to indicate we"ve made changes Result := S_OK; except // Return E_FAIL on error Result := E_FAIL; end; end; function TWBContainer.ShowContextMenu( const dwID: DWORD; const ppt: PPOINT; const pcmdtReserved: IInterface; const pdispReserved: IDispatch): HResult; begin if fUseCustomCtxMenu then begin // tell IE we"re handling the context menu Result := S_OK; if Assigned(HostedBrowser.PopupMenu) then // browser has a pop up menu so activate it HostedBrowser.PopupMenu.Popup(ppt.X, ppt.Y); end else // tell IE to use default action: display own menu Result := S_FALSE; end; end.

← →
DVM © (2008-05-23 23:34) [42]

unit IntfDocHostUIHandler; interface uses // Delphi Windows, ActiveX; const { Set of flags that indicate the capabilities of an IDocHostUIHandler implementation and are used in a TDocHostUIInfo record. } DOCHOSTUIFLAG_DIALOG = $00000001; {Disables selection of text in form} DOCHOSTUIFLAG_DISABLE_HELP_MENU = $00000002; {MSHTML does not add the Help menu item to the container"s menu} DOCHOSTUIFLAG_NO3DBORDER = $00000004; {MSHTML does not use 3-D borders on any frames or framesets. To turn the border off on only the outer frameset use DOCHOSTUIFLAG_NO3DOUTERBORDER} DOCHOSTUIFLAG_SCROLL_NO = $00000008; {MSHTML does not have scroll bars} DOCHOSTUIFLAG_DISABLE_SCRIPT_INACTIVE = $00000010; {MSHTML does not execute any script when loading pages} DOCHOSTUIFLAG_OPENNEWWIN = $00000020; {MSHTML opens a site in a new window when a link is clicked rather than browse to the new site using the same browser window} DOCHOSTUIFLAG_DISABLE_OFFSCREEN = $00000040; {Not implemented} DOCHOSTUIFLAG_FLAT_SCROLLBAR = $00000080; {MSHTML uses flat scroll bars for any user interface (UI) it displays} DOCHOSTUIFLAG_DIV_BLOCKDEFAULT = $00000100; {MSHTML inserts the div tag if a return is entered in edit mode. Without this flag, MSHTML will use the p tag} DOCHOSTUIFLAG_ACTIVATE_CLIENTHIT_ONLY = $00000200; {MSHTML only becomes UI active if the mouse is clicked in the client area of the window. It does not become UI active if the mouse is clicked on a nonclient area, such as a scroll bar} DOCHOSTUIFLAG_OVERRIDEBEHAVIORFACTORY = $00000400; {MSHTML consults the host before retrieving a behavior from the URL specified on the page. If the host does not support the behavior, MSHTML does not proceed to query other hosts or instantiate the behavior itself, even for behaviors developed in script (HTML Components (HTCs))} DOCHOSTUIFLAG_CODEPAGELINKEDFONTS = $00000800; {IE5 or later. Provides font selection compatibility for Outlook Express. If the flag is enabled, the displayed characters are inspected to determine whether the current font supports the code page. If disabled, the current font is used, even if it does not contain a glyph for the character. This flag assumes that the user is using IE5 and OE4.0} DOCHOSTUIFLAG_URL_ENCODING_DISABLE_UTF8 = $00001000; {IE5 or later. Controls how nonnative URLs are transmitted over the Internet. Nonnative refers to characters outside the multibyte encoding of the URL. If this flag is set, the URL is not submitted to the server in UTF-8 encoding} DOCHOSTUIFLAG_URL_ENCODING_ENABLE_UTF8 = $00002000; {IE5 or later. Controls how nonnative URLs are transmitted over the Internet. Nonnative refers to characters outside the multibyte encoding of the URL. If this flag is set, the URL is submitted to the server in UTF-8 encoding} DOCHOSTUIFLAG_ENABLE_FORMS_AUTOCOMPLETE = $00004000; {IE5 or later. This flag enables the AutoComplete feature for forms in the hosted browser. The Intelliforms feature is only turned on if the user has previously enabled it. If the user has turned the AutoComplete feature off for forms, it is off whether this flag is specified or not} DOCHOSTUIFLAG_ENABLE_INPLACE_NAVIGATION = $00010000; {IE5 or later. This flag enables the host to specify that navigation should happen in place. This means that applications hosting MSHTML directly can specify that navigation happen in the application"s window. For instance, if this flag is set, you can click a link in HTML mail and navigate in the mail instead of opening a new IE window} DOCHOSTUIFLAG_IME_ENABLE_RECONVERSION = $00020000; {IE5 or later. During initialization, the host can set this flag to enable Input Method Editor (IME) reconversion, allowing computer users to employ IME reconversion while browsing Web pages} DOCHOSTUIFLAG_THEME = $00040000; {IE6 or later. Specifies that the hosted browser should use themes for pages it displays} DOCHOSTUIFLAG_NOTHEME = $00080000; {IE6 or later. Specifies that the hosted browser should not use themes for pages it displays} DOCHOSTUIFLAG_NOPICS = $00100000; {IE6 or later. Disables PICS ratings for the hosted browser} DOCHOSTUIFLAG_NO3DOUTERBORDER = $00200000; {IE6 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} // *** query these values DOCHOSTUIFLAG_DISABLE_EDIT_NS_FIXUP = $1; {IE6 or later. Disables the automatic correction of namespaces when editing HTML elements} DOCHOSTUIFLAG_LOCAL_MACHINE_ACCESS_CHECK = $1; {IE6 or later. Prevents Web sites in the Internet zone from accessing files in the Local Machine zone} DOCHOSTUIFLAG_DISABLE_UNTRUSTEDPROTOCOL = $1; {IE6 or later. Turns off untrusted protocols. Untrusted protocols include ms-its, ms-itss, its, and mk:@msitstore} { Set of values used to indicate the proper action on a double-click event. Used in a TDocHostUIInfo record. } DOCHOSTUIDBLCLK_DEFAULT = 0; {Perform the default action} DOCHOSTUIDBLCLK_SHOWPROPERTIES = 1; {Show the item"s properties} DOCHOSTUIDBLCLK_SHOWCODE = 2; {Show the page"s source} { Values that that indicate the type of user interface. Used in IDocHostUIHandler.ShowUI method. } DOCHOSTUITYPE_BROWSE = 0; {Indicates the user interface is for browsing} DOCHOSTUITYPE_AUTHOR = 1; {Value that indicates the user interface is for authoring}

← →
DVM © (2008-05-23 23:35) [43]

type { TDocHostUIInfo: Used by the IDocHostUIHandler.GetHostInfo method to allow MSHTML to retrieve information about the host"s UI requirements. } TDocHostUIInfo = record cbSize: ULONG; {size of structure in bytes} dwFlags: DWORD; {one or more DOCHOSTUIFLAG_* flags that specify UI capabilitiess of host} dwDoubleClick: DWORD; {a DOCHOSTUIDBLCLK_* value that specifies operation in response to a double-click} pchHostCss: PWChar; {pointer to set of CSS rules set by host} pchHostNS: PWChar; {pointer to a ";" delimited namespace list that allows declaration of namespaces for custom tags on the page} end; { PDocHostUIInfo: Pointer to TDocHostUIInfo record. } PDocHostUIInfo = ^TDocHostUIInfo; { IDocHostUIHandler: This custom interface enables an application hosting the WebBrowser Control or automating IE to replace the menus, toolbars, and context menus used by MSHTML. } IDocHostUIHandler = interface(IUnknown) ["{bd3f23c0-d43e-11cf-893b-00aa00bdce1a}"] function ShowContextMenu(const dwID: DWORD; const ppt: PPOINT; const pcmdtReserved: IUnknown; const pdispReserved: IDispatch): HResult; stdcall; {Called by MSHTML to display a shortcut menu. @param dwID [in] specifies identifier of the shortcut menu to be displayed. This identifier is a bitwise shift of the value 0x1 by the shortcut menu values (e.g., CONTEXT_MENU_DEFAULT) defined in Mshtmhst.h. Values are: $02 value of (0x1 shl CONTEXT_MENU_DEFAULT) $04 value of (0x1 shl CONTEXT_MENU_CONTROL) $08 value of (0x1 shl CONTEXT_MENU_TABLE) $10 value of (0x1 shl CONTEXT_MENU_TEXTSELECT) $30 value of (0x1 shl CONTEXT_MENU_ANCHOR) $20 value of (0x1 shl CONTEXT_MENU_UNKNOWN). @param ppt [in] pointer to POINT structure containing screen coordinates for the menu. @param pcmdtReserved [in] IUnknown interface of an IOleCommandTarget interface used to query command status and execute commands on this object. @param pdispReserved [in] IDispatch interface of the object at the screen coordinates specified in ppt. This allows a host to differentiate particular objects to provide more specific context. In IE 4.0 this parameter supplied no information, but in IE5 and later the parameter contains an IDispatch interface. @return S_OK if host displayed its own user interface (UI). MSHTML will not attempt to display its UI; S_FALSE if host did not display any UI. MSHTML will display its UI pr DOCHOST_E_UNKNOWN Menu identifier is unknown. MSHTML may attempt an alternative identifier from a previous version. } function GetHostInfo(var pInfo: TDocHostUIInfo): HResult; stdcall; {Called by MSHTML to retrieve the user interface (UI) capabilities and requirement of the application that is hosting MSHTML. Various aspects of MSHTML can be controlled. For example: + The browser"s 3-D border can be disabled. + The browser"s scroll bars can be disabled or change their appearance can be changed. + Scripts can be disabled. + Handling of double-clicks can be modified. @param pInfo [in, out] reference to a TDocHostUIInfo structure that receives the host"s UI capabilities. @return S_OK if successful, or an error value otherwise or if we don"t make any changes to pInfo. } function ShowUI(const dwID: DWORD; const pActiveObject: IOleInPlaceActiveObject; const pCommandTarget: IOleCommandTarget; const pFrame: IOleInPlaceFrame; const pDoc: IOleInPlaceUIWindow): HResult; stdcall; {Called by MSHTML to enable the host to replace MSHTML menus and toolbars etc. If the host uses any of the interfaces handed to it by this function, the host should call the interface"s AddRef method to save the interface for later use. If the host calls the interface"s AddRef method, the host must also call the interface"s Release method when the interface is no longer required. @param dwID [in] receives a DOCHOSTUITYPE_* value indicating the type of user interface (UI). @param pActiveObject [in] IOleInPlaceActiveObject interface reference for the active object. @param pCommandTarget [in] IOleCommandTarget interface for the object. @pFrame [in] IOleInPlaceFrame interface for the object. Menus and toolbars must use this parameter. @param pDoc [in] an IOleInPlaceUIWindow interface for the object. Toolbars must use this parameter. @return S_OK if host displayed its own UI (MSHTML will not display its UI); S_FALSE if host did not display its own UI (MSHTML will display its UI) or DOCHOST_E_UNKNOWN if host did not recognize the UI identifier. MSHTML will either try an alternative identifier for compatibility with a previous version or display its own UI. } function HideUI: HResult; stdcall; {Called when MSHTML removes its menus and toolbars. If a host displayed menus and toolbars during the call to ShowUI, it should remove them when this method is called. This method is called regardless of the return value from ShowUI. @return S_OK on success or error value on failure. } function UpdateUI: HResult; stdcall; {Called by MSHTML to notify the host that the command state has changed. The host should update the state of toolbar buttons in an implementation of this method. This method is called regardless of the return value from the IDocHostUIHandler.ShowUI method. @return S_OK on success or error value on failure. } function EnableModeless(const fEnable: BOOL): HResult; stdcall; {Called by the MSHTML implementation of IOleInPlaceActiveObject. EnableModeless. Also called when MSHTML displays a modal UI. @param fEnable [in] indicates if the host"s modeless dialog boxes are enabled (true) or disabled (false). @return S_OK on success or error value on failure. } function OnDocWindowActivate(const fActivate: BOOL): HResult; stdcall; {Called by the MSHTML implementation of IOleInPlaceActiveObject. OnDocWindowActivate when the document window is activated or deactivated. @param fActivate [in] indicates the state of the document window: true if the window is being activated and false if the window is being deactivated. @return S_OK on success or error value on failure. }

← →
DVM © (2008-05-23 23:35) [44]

← →
DVM © (2008-05-23 23:36) [45]

unit UNulContainer; interface uses Windows, ActiveX, SHDocVw, IntfDocHostUIHandler; type TNulWBContainer = class(TObject, IUnknown, IOleClientSite, IDocHostUIHandler) private fHostedBrowser: TWebBrowser; // Registration method procedure SetBrowserOleClientSite(const Site: IOleClientSite); protected { IUnknown } function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall; function _AddRef: Integer; stdcall; function _Release: Integer; stdcall; { IOleClientSite } function SaveObject: HResult; stdcall; function GetMoniker(dwAssign: Longint; dwWhichMoniker: Longint; out mk: IMoniker): HResult; stdcall; function GetContainer( out container: IOleContainer): HResult; stdcall; function ShowObject: HResult; stdcall; function OnShowWindow(fShow: BOOL): HResult; stdcall; function RequestNewObjectLayout: HResult; stdcall; { IDocHostUIHandler } function ShowContextMenu(const dwID: DWORD; const ppt: PPOINT; const pcmdtReserved: IUnknown; const pdispReserved: IDispatch): HResult; stdcall; function GetHostInfo(var pInfo: TDocHostUIInfo): HResult; stdcall; function ShowUI(const dwID: DWORD; const pActiveObject: IOleInPlaceActiveObject; const pCommandTarget: IOleCommandTarget; const pFrame: IOleInPlaceFrame; const pDoc: IOleInPlaceUIWindow): HResult; stdcall; function HideUI: HResult; stdcall; function UpdateUI: HResult; stdcall; function EnableModeless(const fEnable: BOOL): HResult; stdcall; function OnDocWindowActivate(const fActivate: BOOL): HResult; stdcall; function OnFrameWindowActivate(const fActivate: BOOL): HResult; stdcall; function ResizeBorder(const prcBorder: PRECT; const pUIWindow: IOleInPlaceUIWindow; const fFrameWindow: BOOL): HResult; stdcall; function TranslateAccelerator(const lpMsg: PMSG; const pguidCmdGroup: PGUID; const nCmdID: DWORD): HResult; stdcall; function GetOptionKeyPath(var pchKey: POLESTR; const dw: DWORD ): HResult; stdcall; function GetDropTarget(const pDropTarget: IDropTarget; out ppDropTarget: IDropTarget): HResult; stdcall; function GetExternal(out ppDispatch: IDispatch): HResult; stdcall; function TranslateUrl(const dwTranslate: DWORD; const pchURLIn: POLESTR; var ppchURLOut: POLESTR): HResult; stdcall; function FilterDataObject(const pDO: IDataObject; out ppDORet: IDataObject): HResult; stdcall; public constructor Create(const HostedBrowser: TWebBrowser); destructor Destroy; override; property HostedBrowser: TWebBrowser read fHostedBrowser; end;

← →
DVM © (2008-05-23 23:36) [46]

implementation uses SysUtils; { TNulWBContainer } constructor TNulWBContainer.Create(const HostedBrowser: TWebBrowser); begin Assert(Assigned(HostedBrowser)); inherited Create; fHostedBrowser := HostedBrowser; SetBrowserOleClientSite(Self as IOleClientSite); end; destructor TNulWBContainer.Destroy; begin SetBrowserOleClientSite(nil); inherited; end; function TNulWBContainer.EnableModeless(const fEnable: BOOL): HResult; begin { Return S_OK to indicate we handled (ignored) OK } Result := S_OK; end; function TNulWBContainer.FilterDataObject(const pDO: IDataObject; out ppDORet: IDataObject): HResult; begin { Return S_FALSE to show no data object supplied. We *must* also set ppDORet to nil } ppDORet := nil; Result := S_FALSE; end; function TNulWBContainer.GetContainer( out container: IOleContainer): HResult; {Returns a pointer to the container"s IOleContainer interface} begin { We do not support IOleContainer. However we *must* set container to nil } container := nil; Result := E_NOINTERFACE; end; function TNulWBContainer.GetDropTarget(const pDropTarget: IDropTarget; out ppDropTarget: IDropTarget): HResult; begin { Return E_FAIL since no alternative drop target supplied. We *must* also set ppDropTarget to nil } ppDropTarget := nil; Result := E_FAIL; end; function TNulWBContainer.GetExternal(out ppDispatch: IDispatch): HResult; begin { Return E_FAIL to indicate we failed to supply external object. We *must* also set ppDispatch to nil } ppDispatch := nil; Result := E_FAIL; end; function TNulWBContainer.GetHostInfo(var pInfo: TDocHostUIInfo): HResult; begin { Return S_OK to indicate UI is OK without changes } Result := S_OK; end; function TNulWBContainer.GetMoniker(dwAssign, dwWhichMoniker: Integer; out mk: IMoniker): HResult; {Returns a moniker to an object"s client site} begin { We don"t support monikers. However we *must* set mk to nil } mk := nil; Result := E_NOTIMPL; end; function TNulWBContainer.GetOptionKeyPath(var pchKey: POLESTR; const dw: DWORD): HResult; begin { Return E_FAIL to indicate we failed to override default registry settings } Result := E_FAIL; end; function TNulWBContainer.HideUI: HResult; begin { Return S_OK to indicate we handled (ignored) OK } Result := S_OK; end; function TNulWBContainer.OnDocWindowActivate( const fActivate: BOOL): HResult; begin { Return S_OK to indicate we handled (ignored) OK } Result := S_OK; end; function TNulWBContainer.OnFrameWindowActivate( const fActivate: BOOL): HResult; begin { Return S_OK to indicate we handled (ignored) OK } Result := S_OK; end; function TNulWBContainer.OnShowWindow(fShow: BOOL): HResult; {Notifies a container when an embedded object"s window is about to become visible or invisible} begin { Return S_OK to pretend we"ve responded to this } Result := S_OK; end; function TNulWBContainer.QueryInterface(const IID: TGUID; out Obj): HResult; begin if GetInterface(IID, Obj) then Result := S_OK else Result := E_NOINTERFACE; end; function TNulWBContainer.RequestNewObjectLayout: HResult; {Asks container to allocate more or less space for displaying an embedded object} begin { We don"t support requests for a new layout } Result := E_NOTIMPL; end; function TNulWBContainer.ResizeBorder(const prcBorder: PRECT; const pUIWindow: IOleInPlaceUIWindow; const fFrameWindow: BOOL): HResult; begin { Return S_FALSE to indicate we did nothing in response } Result := S_FALSE; end; function TNulWBContainer.SaveObject: HResult; {Saves the object associated with the client site} begin { Return S_OK to pretend we"ve done this } Result := S_OK; end; procedure TNulWBContainer.SetBrowserOleClientSite( const Site: IOleClientSite); var OleObj: IOleObject; begin Assert((Site = Self as IOleClientSite) or (Site = nil)); if not Supports( fHostedBrowser.DefaultInterface, IOleObject, OleObj ) then raise Exception.Create( "Browser""s Default interface does not support IOleObject" ); OleObj.SetClientSite(Site); end; function TNulWBContainer.ShowContextMenu(const dwID: DWORD; const ppt: PPOINT; const pcmdtReserved: IInterface; const pdispReserved: IDispatch): HResult; begin { Return S_FALSE to notify we didn"t display a menu and to let browser display its own menu } Result := S_FALSE end; function TNulWBContainer.ShowObject: HResult; {Tells the container to position the object so it is visible to the user} begin { Return S_OK to pretend we"ve done this } Result := S_OK; end; function TNulWBContainer.ShowUI(const dwID: DWORD; const pActiveObject: IOleInPlaceActiveObject; const pCommandTarget: IOleCommandTarget; const pFrame: IOleInPlaceFrame; const pDoc: IOleInPlaceUIWindow): HResult; begin { Return S_OK to say we displayed own UI } Result := S_OK; end; function TNulWBContainer.TranslateAccelerator(const lpMsg: PMSG; const pguidCmdGroup: PGUID; const nCmdID: DWORD): HResult; begin { Return S_FALSE to indicate no accelerators are translated } Result := S_FALSE; end; function TNulWBContainer.TranslateUrl(const dwTranslate: DWORD; const pchURLIn: POLESTR; var ppchURLOut: POLESTR): HResult; begin { Return E_FAIL to indicate that no translations took place } Result := E_FAIL; end; function TNulWBContainer.UpdateUI: HResult; begin { Return S_OK to indicate we handled (ignored) OK } Result := S_OK; end; function TNulWBContainer._AddRef: Integer; begin Result := -1; end; function TNulWBContainer._Release: Integer; begin Result := -1; end; end.

← →
ivanov (2008-05-24 00:30) [47]

спасибо, я попробую, но уже завтра.
еще бы разобраться, что к чему..

в 40 реализация.
41 - UContainer
42,43 и 44 - IntfDocHostUIHandler (один юнит)
45 и 46 - UNulContainer (тоже один)
правильно?

← →
DVM © (2008-05-24 10:55) [48]

> правильно?

да

← →
ivanov (2008-05-24 11:48) [49]

а должно исчезнуть мелькание после подключения этого всего?
у меня ничего не произошло, как мелькало так и продолжает :(

← →
DVM © (2008-05-24 17:51) [50]

> у меня ничего не произошло, как мелькало так и продолжает
> :(

Это уже другое мельканье. Если зайти в какую-то ветку и переходить по циферкам скажем 1,2,3 - страницы ветки, то ничего не мелькает. Прсто красный цвет он слишком резкий и лично у меня все мелькание заключается лишь в том, что красный фон накрывают потом синие картинки и кажется, что все мелькает. Но старый фон не мелькает вообще.

← →
DVM © (2008-05-24 17:53) [51]

Можешь проверить включив запись в видеофайл содержимого десктопа и потом посмотри замедленно - будет видно есть мелькание старого фона или нет. У меня нет.

← →
DVM © (2008-05-24 17:55) [52]

Вообще этот способ с контейнером он довольно известный - позволяет поменять многое в стандартном поведении TWebBrowser.

> ivanov (23.05.08 11:14) [30]
> значит задача не решаема.жаль.

попробуй сделать так:

1) создаем глобальную пер-ю IsWBClicked: Boolean;
2) TWebBrowser.OnClick - обрабатываем
IsWBClicked := True;
3) в OnBeforeNavigate2 проверяем:
If IsWBClicked then begin //юзер кликнул //проверяй url end else begin //перед нами фрейм end; IsWBClicked := False;

подругому имхо - никак! :)

ничего у меня не получаитса :(

> TWebBrowser.OnClick - обрабатываем

это где такое событие есть?

> это где такое событие есть?

создай свой наследник TWebBrowser и отлавливай событие - сделай свой OnClick

← →
имя (2008-06-11 16:50) [56]

Удалено модератором

← →
имя (2008-06-11 16:51) [57]

Удалено модератором

открыватьчужие ссылки в новом окне? Найти похожие ветки