Jump to content

TuniPopupMenu的CloseMenu方法无效


tony0228

Recommended Posts


//菜单能正常弹出
procedure TMainForm.UniBitBtn1MouseEnter(Sender: TObject);
begin
PM_contEdu.Popup(0,28,UniBitBtn1);
end;

//无法自动关闭
procedure TMainForm.UniBitBtn1MouseLeave(Sender: TObject);
begin
PM_contEdu.CloseMenu;
end;

 

Link to comment
Share on other sites

You don't have to call CloseMenu. Menu is closed when an item is selected.

 

谢谢您的回复,不过我想得到的是自动弹出和自动隐藏的popupmenu效果。

 

Thanks for your reply Farshad !

But what I want is a auto-popup and auto-hide popupmenu, by check out mouse over event.

Link to comment
Share on other sites

  • Administrators

谢谢您的回复,不过我想得到的是自动弹出和自动隐藏的popupmenu效果。

 

Thanks for your reply Farshad !

But what I want is a auto-popup and auto-hide popupmenu, by check out mouse over event.

 

This must be done on client side using a proper script.

Link to comment
Share on other sites

This must be done on client side using a proper script.

I know,but, how? please...

 

I think , it can be writing some script at  a button's client side ExtEvents like these:

 
Ext.button.Button
function mousemove(sender, x, y, eOpts)
{
    Mainform.UniPopupMenu1.popup;
}
 
function mouseout(sender, e, eOpts)
{
   mainform.UniPopupMenu1.close;
}

 

----------------------------------

but don't work...

Link to comment
Share on other sites

Hi,

You can like this, But here you have to understand that then you can not select menu items ...
You need to change the logic:

Try:

1.

type
  TMMainPopupMenu = class(TUniPopupMenu)

  end;

2.

procedure TMainForm.UniButton1MouseEnter(Sender: TObject);
begin
  UniPopupMenu1.Popup(0, 28, Sender);
end;

procedure TMainForm.UniButton1MouseLeave(Sender: TObject);
var
  PopupMenuJSName: string;
begin
  PopupMenuJSName := TMMainPopupMenu(UniPopupMenu1).GetMenuControl.JSName;
  UniSession.AddJS(PopupMenuJSName + '.hide()');
end;
Best regards.
  • Upvote 1
Link to comment
Share on other sites

 

Hi,

 

You can like this, But here you have to understand that then you can not select menu items ...

 

 

eh...This could be a bigger problem... :( 

 

It seems like the effect I want is not to be realized.

 

是的,菜单是会自动消失了,但它也无法进行选取操作了……两全齐美不容易啊

 

Thank you very much for your help ! :rolleyes:

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...