重写了一个msgbox库 , 代码参考了win.dlg.message库

系统自带的msgbox挺简单好用, 但是不能设置弹出位置 , 有时候用起来会挡住后面一些重要的地方,

aardio里还有一个用plus写的win.dlg.message信息对话框库, 界面效果类似html弹窗.

有时候我们需要弹窗里响应[空格键]和[回车键]/[tab键]消息, 这样就需要对win.dlg.message库代码进行改造下, 所以我把这个库的代码复制出来进行了简单的修改, 使它能响应按键并且可以设置弹出位置,  用来适合当前的项目.

库 msgboxTest.aardio 代码如下:

import win.ui;
class msgBoxTest{
	ctor( parent ){
		this.parent = parent : ..win.getActive();
	};
	create = function(msg){ 
		if(!#msg) error("文本不能为空",2);
		var parentForm = this.parent;
		if(parentForm){
			if( !..win.isWindow(this.parent[["hwnd"]] || this.parent) ){
				parentForm = ..win.getActive() || ..mainForm[["hwnd"]];
			}	
		}

		var winform = ..win.form(text="提示";right=251;bottom=120;border="thin";max=false;min=false;mode="popup";sysmenu=false;parent=parentForm)
		if(!winform){
			return;
		}

		winform.add(
			btnCancel={cls="button";text="取消";left=127;top=83;right=248;bottom=116;tabstop=1;z=2};
			btnOK={cls="button";text="下一步";left=4;top=83;right=125;bottom=116;default=1;tabstop=1;z=1};
			message={cls="static";text=msg;left=0;top=0;right=252;bottom=78;align="center";bgcolor=0;color=65302;font=LOGFONT(h=-19);z=3}
		)  
		..win.setFocus(winform.btnOK.hwnd);
		winform.btnOK.oncommand = function(id,event){
			winform.endModal(true);
		} 
		winform.btnCancel.oncommand = function(id,event){
			winform.endModal(false);
		}

		return winform;	
	}
	show = function(msg,sw){
		if(!#msg) error("文本不能为空",2);
		var dlg = this.create(msg);
		if(dlg) return dlg.show(sw);
	}
	doModal = function(msg,posx,posy){
		if(!#msg) error("文本不能为空",2);
		var dlg = this.create(msg);
		if(!dlg) return;
		if(posx !=null and posy!=null)
		dlg.setPos(posx,posy);
		return dlg.doModal();
	}
	Test = function(msg,posx,posy){
		return this.doModal(msg,posx,posy);
	}
}

msgBoxTest.install = function(){
	..win.ui.ctrl.metaProperty.mixin({
		msgTest = function(str,posx,posy){
			return msgBoxTest(owner).Test( str,posx,posy ); 
		}; 
	})
}
msgBoxTest.install();

使用的时候只需要简单的调用即可.

代码示例如下:

import console
console.open()

import msgBoxTest;
mainForm.button.oncommand = function(id,event){
	console.log( mainForm.msgTest("XXX操作完成了吗?",300,500) );
}

工程下载:

msgboxDemo.zip

2022.11.13更新

将弹出位置改为设置一个控件作为参考, 将上面源码最后一行改为

msgBoxTest.install = function(){
    ..win.ui.ctrl.metaProperty.mixin({
        msgTest = function(str,winform){
            var rc = winform.getRect(true);
            var posx = rc.left+(rc.width()/2 - 123);
            var posy = rc.top+(rc.height()/2 - 92);
            return msgBoxTest(owner).Test( str,posx,posy ); 
        }; 
    })
}

使用的时候:

mainForm.msgTest(信息内容,mainForm.msglog)

这样就会在msglog这个控件的中心弹出窗口.