How to display a custom popup menu in TEmbeddedWB? - EmbeddedWB

**smot** · 01-08-2009, 01:39 AM

Question:

How to display a custom popup menu in TEmbeddedWB?

Answer:

a)

In the Object Inspector,

- assign a TPopupMenu to the EmbeddedWB

- Set DisabledPopupMenus := [rcmAll]

b)

- Assign a OnShowContextMenu handler in the Object Inspector
- Return S_OK (to disable all context menus)
- Popup a PopupMenu / the assigned TPopupMenu

Example: Only display a custom Popup menu for CONTEXT_MENU_IMAGE

Code:

procedure TForm1.EmbeddedWB1ShowContextMenu(Sender: TCustomEmbeddedWB;
  const dwID: Cardinal; const ppt: PPoint; const CommandTarget: IInterface;
  const Context: IDispatch; var Result: HRESULT);
begin
  if dwID = CONTEXT_MENU_IMAGE then
  begin
    Sender.PopupMenu.Popup(ppt.X, ppt.Y);
    Result := S_OK;
  end;
end;

jacks2028 · 06-02-2010, 06:36 PM

You ask the question and you also give the answer very strange but That's very good information for sharing. This post is really nice. Now I know how to display custom pop-up menu in a embedded window.

01-08-2009, 01:39 AM	#1
smot Main Developer Join Date: May 2006 Posts: 913	How to display a custom popup menu in TEmbeddedWB? Question: How to display a custom popup menu in TEmbeddedWB? Answer: a) In the Object Inspector, - assign a TPopupMenu to the EmbeddedWB - Set DisabledPopupMenus := [rcmAll] b) - Assign a OnShowContextMenu handler in the Object Inspector - Return S_OK (to disable all context menus) - Popup a PopupMenu / the assigned TPopupMenu Example: Only display a custom Popup menu for CONTEXT_MENU_IMAGE Code: procedure TForm1.EmbeddedWB1ShowContextMenu(Sender: TCustomEmbeddedWB; const dwID: Cardinal; const ppt: PPoint; const CommandTarget: IInterface; const Context: IDispatch; var Result: HRESULT); begin if dwID = CONTEXT_MENU_IMAGE then begin Sender.PopupMenu.Popup(ppt.X, ppt.Y); Result := S_OK; end; end;

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

06-02-2010, 06:36 PM	#2
jacks2028 Junior Member Join Date: Jun 2010 Posts: 4	You ask the question and you also give the answer very strange but That's very good information for sharing. This post is really nice. Now I know how to display custom pop-up menu in a embedded window.