制作对话盒
下面我们在集成开发环境中做一个图形文件，上面放一个刀闸元件，在运行时刻，当鼠标单击这个元件时弹出一个对话盒，用户在对话盒里面输入刀闸的新状态，按“确定”后，刀闸的状态发生变化。
制作方法：
一、首先，我们来制作如下的对话盒：
在图库列表中打开controls.tbl。
二、新建一个图形文件，从上述元件库中把一个RadioGroup、两个RadioButton和两个Button拖入画面，摆放成上图的形状，并修改其标签文本（Caption属性），注意括号中的字母或数字是快捷键，字母必须大写，括号必须是英文括号。
三、从元件库里拖动KeyManager这个元件到画面上，并在页面的OnKeyDown事件里面写：
KeyManager1.OnKeyDown( KeyManager1, Key )
在按钮“确定”的OnClick事件里写：Close( 1 )，在按钮“取消”的OnClick事件里写：Close( 0 )。
四、选择菜单“工具/视图窗口设置”，弹出对话盒：
在这个对话盒中，把“工作区”改成“0，0，235，117”，这个大小是如何计算得到的呢？我们把画面上的所有图形对象选中，移动，使选中图形左上角的坐标为“16，16”，查看下方的状态栏，看到选中图形的宽度和高度是“202，84”，工作区的宽度应该是202 + 2 * 16 + 1 = 235，高度应该是84 + 2 * 16 + 1 = 117。
五、将文件保存到c:\dlg.tbl。
六、下面制作图形画面，新建一个图形文件，在图库列表窗口中打开Lib目录下的“电力设备.tbl”。
七、从元件库中找到“垂直刀闸”拖动到页面中。
八、在刀闸的OnClick事件中，添加如下代码：
doc = Create( "c:\dlg.tbl", false, false ) |
创建一个弹出式窗口。 |
九、运行此画面，单击刀闸，会弹出“设置”对话框，我们点击“分开”或“合上”后，按“确定”，刀闸会随之开或关。