1.在Dialogs视图中,右键All Dialog,选择新建对话框(New Dialog)
2.创建一个空白对话框,命名为MyDlg.
3.双击MyDlg下的子项即可进入对话框的编辑模式
4.这里我们添加一个Hello按钮。选择按钮控件然后在对话框的界面上拖拉出一个按钮控件。
修改按钮属性text为Hello。注意一下这里的Control Identifer属性值,后面我们会用到。
5.在installscript视图中新建一个rul文件,命名为MyDlg.url
6.编写MyDlg.url
内容如下:
#define DLG_MYDLG "MyDlg" //MyDlg是我们的对话框名字 #define HELLOBTN 1301 //1301就是我们那个按钮的Control Identifer属性值 prototype NUMBER MyDlg(BYREF STRING); function NUMBER MyDlg(msg) HWND hDlg; NUMBER nId, nResult; NUMBER nControl; BOOL bDone; begin //初始对话框函数 if (EzDefineDialog( DLG_MYDLG,ISUSER , "MyDlg", 0 ) = DLG_ERR) then return ISERR_GEN_FAILURE; endif; bDone = FALSE; //循环 while (!bDone) nId = WaitOnDialog( DLG_MYDLG );//获得对话框的消息 switch (nId) case HELLOBTN: //如果是HELLOBTN MessageBox(msg,WARNING); bDone=TRUE; case DLG_ERR: nId = ISERR_GEN_FAILURE; SdError(nId, DLG_MYDLG); bDone = TRUE; case DLG_CLOSE: SdCloseDlg(hDlg, nId, bDone); default: // check standard handling if (SdIsStdButton(nId) && SdDoStdButton(nId)) then bDone = TRUE; endif; endswitch; endwhile; end;
Dlg_SdRegisterUser:
szMsg = "";
szTitle = "";
//{{IS_SCRIPT_TAG(Dlg_SdRegisterUser)
// nResult = SdRegisterUser( szTitle, szMsg, szName, szCompany );
//}}IS_SCRIPT_TAG(Dlg_SdRegisterUser)
if (nResult = BACK) goto Dlg_MyDlg;
。。。。
编译运行就可以看到自己的对方框了。
转自:http://www.xue163.com/131/6/1317403.html