Jump to content

popupmenu for uniedit


Freeman35

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

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...