popupmenu for uniedit

[Freeman35]

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

[Sherzod]

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,

[Freeman35]

Thank you,

Position problem still continue. you can see screenshot on my first message. I think this is bug. 

Thank you.

[Sherzod]

Hi,

 

Position problem still continue. you can see screenshot on my first message. I think this is bug.

 

Where is the screenshot ?!

 

I couldn't reproduce this, have you added Sender ?:

POP_1.Popup(X, Y, Sender); 

[Freeman35]

 

Hi,

 

 

Where is the screenshot ?!

 

On my desktop  :D   

 

 

I couldn't reproduce this, have you added Sender ?:

POP_1.Popup(X, Y, Sender); 

 

 

 

 

Yes, This solution work for me, Thank you very much.

Best regards