uniGUI之UniPopupMenu和右键菜单,及XY坐标获得

uniGUI之UniPopupMenu和右键菜单,及XY坐标获得1]控件的OnCellContextClick的事件。procedure TMainForm.UniDBGrid1CellContextClick;//弹出 右键菜单,绑定UniDBGrid1。

大家好,欢迎来到IT知识分享网。

]MainModule的BrowserOptions.boDisableMouseRightClick设置为Trure;

1]控件的OnCellContextClick的事件

uniGUI之UniPopupMenu和右键菜单,及XY坐标获得

procedure TMainForm.UniDBGrid1CellContextClick(Column: TUniDBGridColumn; X, Y: Integer);

begin

UniPopupMenu1.Popup(X, Y, UniDBGrid1);//弹出 右键菜单,绑定UniDBGrid1

end;

uniGUI之UniPopupMenu和右键菜单,及XY坐标获得

procedure TMainForm.UniContainerPanel2MouseDown(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

if Button = mbRight then

begin

LastX := X;

LastY := Y;

UniPopupMenu1.Popup(X, Y, UniContainerPanel2); //X,Y为坐标

end;

end;

2]再写菜单事件

procedure TMainForm.N1Click(Sender: TObject);

begin

UniDBGrid1.DataSource.DataSet.Delete;

end;

uniGUI开发的项目在运行时能否禁用鼠标右键菜单呢?答案是肯定的,因为uniGUI提供了一系列的配置属性让你可以根据需要个性化设置,如此将UniMainModule的BrowserOptions属性的boDisableMouseRightClick设置为true就可以禁用右键菜单,特别简单。但是如此设置后整个页面上的所有控件都看不见右键菜单了,如何只禁用某个控件的右键菜单呢?比如不做全局设置,而是仅仅让UniTreeView1控件内不能右键弹出菜单,代码如下:

procedure TMainForm.UniFormAfterShow(Sender: TObject);

begin

UniSession.AddJS(

UniTreeView1.JSId+’.addEventListener(“contextmenu”, e => e.preventDefault())’

);

end;

禁止的右键菜单是这个

不包括UniPopupMenu1

免责声明:本站所有文章内容,图片,视频等均是来源于用户投稿和互联网及文摘转载整编而成,不代表本站观点,不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益,请在线联系站长,一经查实,本站将立刻删除。 本文来自网络,若有侵权,请联系删除,如若转载,请注明出处:https://yundeesoft.com/88237.html

(0)

相关推荐

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注

关注微信