opendcl中的dcl-MessageBox 消息框不能设置对话框的显示位置吗

455383153

dcl-MessageBox
Syntax   (dcl-MessageBox Message [as String] {Title [as String]} {ButtonStyle [as Integer]} {IconStyle [as Integer]} {ShowHelpButton [as Boolean]})

Return Type Integer

This function displays a standard Windows message box with the message text specified in Message. The Title argument specifies the message box title, and the remaining arguments control the number and type of buttons, and the icon displayed beside the message. The default message box displays only an [OK] button with no icon. The return value indicates which button was pressed to close the message box.

Button Style Description
1 [Abort] [Retry] [Ignore] (Abort as default)
2 [OK]
3 [OK] [Cancel] (OK as default)
4 [Retry] [Cancel] (Retry as default)
5 [Yes] [No] (Yes as default)
6 [Yes] [No] [Cancel] (Yes as default)
11 [Abort] [Retry] [Ignore] (Retry as default)
13 [OK] [Cancel] (Cancel as default)
14 [Retry] [Cancel] (Cancel as default)
15 [Yes] [No] (No as default)
16 [Yes] [No] [Cancel] (No as default)
21 [Abort] [Retry] [Ignore] (Ignore as default)
26 [Yes] [No] [Cancel] (Cancel as default)

Icon Style Description
0 No icon
1 Warning icon
2 Information icon
3 Question icon
4 Error icon

Return Value Button
1 [OK]
2 [Cancel]
3 [Abort]
4 [Retry]
5 [Ignore]
6 [Yes]
7 [No]

marting

1、要设置OPENDCL的对话框的位置，只能用函数 dcl-form-setpos ,
2、要用 dcl-form-setpos ， 必须有FORMS的变量名

3、得到未知的FORM窗体，只能用 dcl_project_getforms

4、要用 dcl_project_getforms ，得用 dcl_getprojects

5、执行MESSGEBOX期间，调用dcl_getprojects得不到结果

6、所以，没办法设置dcl-messagebox的位置

1. (defun c:tt ()
   
2.   (dcl-messagebox "\n测试修改对话框位置.")
   
3.   (setq a (dcl_getprojects))
   
4. )
   

(defun c:tt ()<br />   (dcl-messagebox "\n测试修改对话框位置.")<br />   (setq a (dcl_getprojects))<br /> )<br />