Jump to content
uniGUI Discussion Forums
Sign in to follow this  
tony0228

TuniPopupMenu的CloseMenu方法无效

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;

 

Share this post


Link to post
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.

Share this post


Link to post
Share on other sites

谢谢您的回复,不过我想得到的是自动弹出和自动隐藏的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.

Share this post


Link to post
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...

Share this post


Link to post
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

Share this post


Link to post
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:

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×