Jump to content

popupmenu for uniedit


Freeman35
 Share

Recommended Posts

Hello,

1-) How can I dispose default popup menu for uniedit (datepiker and etc. I'll need)

2-) When right click on TUniedit, first of all browser popup menu shoiwing and my popup menu showing. And my popupmenu position is wrong. I get code from "PopupMenu demo"

TUniEdit like in demo "GridFiltering-2" I'm trying my filter options.

procedure TFRM_.EDT_MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbRight then begin
   Self.Caption:= TComponent(Sender).Name;
   POP_1.Popup(X,Y);
  end;
end;

regards

post-4508-0-25432600-1516711872_thumb.png

Link to comment
Share on other sites

Hi,

 

1. UniMainModule -> BrowserOptions -> boDisableMouseRightClick = True

 

2.

procedure TFRM_.EDT_MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button=mbRight then 
  begin
    Self.Caption:= TComponent(Sender).Name;
    POP_1.Popup(X, Y, Sender);
  end;
end;

Best regards,

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

×
×
  • Create New...