tony0228 Posted July 17, 2015 Share Posted July 17, 2015 如题,是BUG吗? Link to comment Share on other sites More sharing options...
tony0228 Posted July 17, 2015 Author Share Posted July 17, 2015 //菜单能正常弹出 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 More sharing options...
Administrators Farshad Mohajeri Posted July 17, 2015 Administrators Share Posted July 17, 2015 You don't have to call CloseMenu. Menu is closed when an item is selected. Link to comment Share on other sites More sharing options...
tony0228 Posted July 20, 2015 Author Share Posted July 20, 2015 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 More sharing options...
Administrators Farshad Mohajeri Posted July 20, 2015 Administrators Share Posted July 20, 2015 谢谢您的回复,不过我想得到的是自动弹出和自动隐藏的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 More sharing options...
tony0228 Posted July 20, 2015 Author Share Posted July 20, 2015 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 More sharing options...
Sherzod Posted July 21, 2015 Share Posted July 21, 2015 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. 1 Link to comment Share on other sites More sharing options...
tony0228 Posted July 21, 2015 Author Share Posted July 21, 2015 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 ! Link to comment Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now