UNIGUI如何禁止关闭新窗口

UNIGUI如何禁止关闭新窗口

1.取消新窗体的systemmenu，目的是去掉窗体的关闭按钮X

2.在窗体加上新按钮，点击事件为

close;

3.在窗体的onclose实践中添加如下代码

action:=canone;//这句一定要放在messagedlg前面

messagedlg(xxxxxxx);