MDI多窗口文本编辑器

.如果真 (msg ＝ 1)
.如果真 (open ＝ 假)
edit ＝ 创建子窗口 (512, “RichEdit20A”, “”, 1342177732, 100, 100, 100, 50, hwnd, 0, hin, 0)
返回 (1)
.如果真结束
edit ＝ 创建子窗口 (512, “RichEdit20A”, “”, 1342177732, 100, 100, 100, 50, hwnd, 0, hin, 0)
置窗口标题 (edit, t)
置窗口标题 (hwnd, file)
open ＝ 假
返回 (缺省子窗口函数 (hwnd, msg, wparam, lparam))
.如果真结束
.如果真 (msg ＝ 546)
active ＝ lparam
edit ＝ 查找子窗口 (active, 0, “RichEdit20A”, 0)
返回 (缺省子窗口函数 (hwnd, msg, wparam, lparam))
.如果真结束
.如果真 (msg ＝ 5)
取窗口巨型 (hwnd, rect)
移动窗口 (edit, 0, 0, rect.right － rect.left, rect.bottom － rect.top, 1)
返回 (缺省子窗口函数 (hwnd, msg, wparam, lparam))
.如果真结束
返回 (缺省子窗口函数 (hwnd, msg, wparam, lparam))