Search the Community
Showing results for tags 'Popup menu'.
-
This code works WHEN NO POPUPMENU IS USED (no ContextMenu is ever shown as expected). If PopUpMenu is used (LeftMenu.Popup(x, y, LeftPanel);) no matter what I do I get the extra "Open In New Tab" window over the top of my PopUpMenu ? Please advise how to prevent "Open In New Tab" window when using PopUpMenu - Thanks in advance. s:= 'afterrender=function afterrender(sender, eOpts) '#13#10+ '{'#13#10+ ' sender.getEl().dom.addEventListener(''mousedown'', function(e) '#13#10+ ' {'#13#10+ ' if (e.target.tagName == ''IMG'' && e.button == 2) '#13#10+ ' { '#13#10+ ' t1 = e.target.getAttribute("data-tableId"); '#13#10+ ' c1 = e.target.getAttribute("data-caption"); '#13#10+ ' e.preventDefault(); '#13#10+ ' ajaxRequest(sender, ''_RightClick_'', {tableId: t1, cap: c1, x: e.offsetX, y: e.offsetY}); '#13#10+ ' } '#13#10+ ' }), '#13#10+ ' sender.getEl().dom.addEventListener(''contextmenu'', function(e) '#13#10+ ' { '#13#10+ ' e.preventDefault(); '#13#10+ ' }) '#13#10+ '}'; LeftHTMLFrame.ClientEvents.ExtEvents.Add(s);
-
-
How can I did disable the popup menu that appear when you right mouse on a UniHTMLMemo?
-
Boa tarde amigos. Estou com o seguinte problema? Estou tentando usar o popup menu dentro de um grid porem quando pressiono o botão direito do mouse alem do meu popup também é apresentado o popup do Browse. Como eu desabilito o popup do Browse para que ele não apareça em minha aplicação? Agradeço pela ajuda dos amigos.
-
Uses CLIPBrd.... Select the text UniEdit and click the right mouse button and run context menu . procedure TMainForm.CommentEditMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if Button=mbRight then UniPopupMenu1.Popup(828+X,Height+18+Y); end; When I want to copy the selected uniedit text. procedure TMainForm.N1Click(Sender: TObject); begin Clipboard.Clear; Clipboard.AsText:=CommentEdit.Text; end; After right-clicking the selection text disappears.