创建一个不能用鼠标操作的表单

新建一个表单，设置 Desktop = .T.（或者设为顶层表单），先加几个文本框控件，再加一个退出按钮，按钮.Click 中写 Thisform.Release()，然后在表单的 Load 事件中加入下面的代码：

DECLARE Long GetWindowLong IN WIN32API Long, Long DECLARE Long SetWindowLong IN WIN32API Long, Long, Long DECLARE Long SetLayeredWindowAttributes IN WIN32API Long, Long, Long, Long SetWindowLong( This.hWnd, -20, BITOR( GetWindowLong( This.hWnd, -20 ), 0x80020 )) SetLayeredWindowAttributes( This.hWnd, 0, 200, 2 )

现在这个表单不接受任何鼠标事件，只有键盘可以操作它。为了区别它，同时将它稍稍透明了一点，这样你可以看到点它的时候其实是点了它下面一个窗口中的东西。