1、关闭带titlebar数据窗口触发
datawindow pbm_syscommand Event：
Long ll_rtn
IF commandtype = 61536 THEN
ll_rtn = MessageBox("问题","要关闭数据窗口？",question!,yesno!,2)
IF ll_rtn = 1 THEN
ELSE
Message.Processed = True
RETURN -1
END IF
END IF
2、数据窗口关闭后的恢复方法：
API函数:
Function ulong ShowWindow (uLong hwnd, uLong nCmdShow) Library "user32.dll"
实例变量:
constant ulong SW_RESTORE = 9
ShowWindow( handle(datawindow_restore_object), SW_RESTORE )
阅读(1008) | 评论(0) | 转发(0) |
