Закрытие popupMenu после смены фокуса.

[OlegTimkiv]

При наведении на кнопку отображаем popupMenu.

procedure TMainForm.btnJornalsMouseEnter(Sender: TObject);
begin
    with TExtPopup(pmJornals).MenuControl.JSInterface do
    begin
        JSCall('showBy', [btnJornals.JSControl]);
        JSCall('setPosition', [btnJornals.Left, btnJornals.Top + btnJornals.Height]);
    end;
end;

Как сделать закрытие popupMenu после смены фокуса?

[x11]

у кнопки есть событие OnMouseLeave, в нем и скрывайте меню

[OlegTimkiv]

16 hours ago, x11 said:

у кнопки есть событие OnMouseLeave, в нем и скрывайте меню

Потом фокусе popupMenu - мы на нем должны закрыть 

[Sherzod]

1 hour ago, OlegTimkiv said:

Потом фокусе popupMenu - мы на нем должны закрыть 

Здравствуйте, 

Вы решили "проблему"? 

[OlegTimkiv]

Just now, Sherzod said:

Здравствуйте, 

Вы решили "проблему"? 

Здравствуйте,

Нет.

[Sherzod]

18 hours ago, OlegTimkiv said:

Как сделать закрытие popupMenu после смены фокуса?

Уточните пожалуйста этот момент.

[OlegTimkiv]

21 minutes ago, Sherzod said:

Уточните пожалуйста этот момент.

 

[Sherzod]

9 minutes ago, OlegTimkiv said:

Project017.avi

UniMenuButton?

[Sherzod]

21 minutes ago, OlegTimkiv said:

Project017.avi

Я проанализирую.

[OlegTimkiv]

11 minutes ago, Sherzod said:

UniMenuButton?

Просто button в панели 

[Sherzod]

2 hours ago, OlegTimkiv said:

Project017.avi

Это решение для меню (mouseout), на данный момент:

procedure TMainForm.UniFormReady(Sender: TObject);
begin
  with TExtPopup(UniPopupMenu1).MenuControl.JSInterface do
  begin
     JSAddListener('afterrender', 'function(){'+
          'var addMenuMouseOut = function(menu) {'+
          'menu.on({'+
          '    mouseleave: function() {'+
          '        this.hide();' + TExtPopup(UniPopupMenu1).MenuControl.JSName +'.hide();'+
          '    }'+
          '});'+
          'menu.items.each(function(item) {'+
          '    if (item.menu) {'+
          '        addMenuMouseOut(item.menu);'+
          '    }'+
          '});'+
          '}; addMenuMouseOut('+ TExtPopup(UniPopupMenu1).MenuControl.JSName +');'+
      '}')
  end;
end;

 

[OlegTimkiv]

49 minutes ago, Sherzod said:

Это решение для меню (mouseout), на данный момент:

procedure TMainForm.UniFormReady(Sender: TObject);
begin
  with TExtPopup(UniPopupMenu1).MenuControl.JSInterface do
  begin
     JSAddListener('afterrender', 'function(){'+
          'var addMenuMouseOut = function(menu) {'+
          'menu.on({'+
          '    mouseleave: function() {'+
          '        this.hide();' + TExtPopup(UniPopupMenu1).MenuControl.JSName +'.hide();'+
          '    }'+
          '});'+
          'menu.items.each(function(item) {'+
          '    if (item.menu) {'+
          '        addMenuMouseOut(item.menu);'+
          '    }'+
          '});'+
          '}; addMenuMouseOut('+ TExtPopup(UniPopupMenu1).MenuControl.JSName +');'+
      '}')
  end;
end;

 

Спасибо! Всё работает!   

[Sherzod]

Отлично!