Detect when a popup is closed

[FXSystems]

Hi, all.
I need to do something like:

I show the popup menu: PopupMenu.Popup (X, Y, Sender);
It's work perfect, but:
I need to detect when a popup is closed without clicking on any item in the list.
How to do that?

[Sherzod]

Hi,

Just now, FXSystems said:

I need to detect when a popup is closed without clicking on any item in the list.
How to do that?

First of all, please specify, which edition and build of UniGUI are you using?

[FXSystems]

Now i use uniGUI Complete - Professional Edition

Version: 1.90.0.1539

Sorry I forgot I should specify it.

[Sherzod]

19 minutes ago, FXSystems said:

Now i use uniGUI Complete - Professional Edition

Please adjust your forum email address:

 

[FXSystems]

I've already done it. I have assigned an email address for the Forum.

It is the same as the registration email.

[Sherzod]

3 hours ago, FXSystems said:

I need to detect when a popup is closed without clicking on any item in the list.
How to do that?

I will check. 

[FXSystems]

Thank you very much. It will be very useful to me.

[Sherzod]

18 minutes ago, FXSystems said:

It will be very useful to me.

 

4 hours ago, FXSystems said:

I show the popup menu: PopupMenu.Popup (X, Y, Sender);

Where do you show?

[FXSystems]

For example on uniPanel. Everything works fine but I need a popup closing event without selecting an option.

[Sherzod]

1 hour ago, FXSystems said:

For example on uniPanel. Everything works fine but I need a popup closing event without selecting an option.

Approximate solution.

1. 

type
  TXPopupMenu = class(TUniPopupMenu)

  end;

2.

procedure TMainForm.UniFormReady(Sender: TObject);
begin
  with TXPopupMenu(UniPopupMenu1).MenuControl.JSInterface do
  begin
    JSAddListener('beforeshow', 'function(me){me._clicked=false}');
    JSAddListener('click', 'function(me){me._clicked=true}');
    JSAddListener('hide', 'function(me){Ext.defer(function(){if (me._clicked == false) {ajaxRequest('+ UniPanel1.JSName +', "hidemenu", [])}}, 100)}');
  end;
end;

3. 

procedure TMainForm.UniPanel1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    UniPopupMenu1.Popup (X, Y, Sender);

end;

4. 

procedure TMainForm.UniPanel1AjaxEvent(Sender: TComponent; EventName: string;
  Params: TUniStrings);
begin
  if EventName = 'hidemenu' then
    ShowMessage('hidemenu')
end;

 

[FXSystems]

Thank you very much. I will check and confirm.

[Sherzod]

Thanks.

[FXSystems]

I used the code from you and make a lot of tests. Works great. Thank you again.