一个看来很简单的问题？？？？

Question

有的程序如打开一个表单后，在上面操作时，鼠标移到表单外不能操作，浮动菜单和顶层菜单失效。怎么能够失效。估计很简单。但是我做不到，谢谢各位。

Answer 1

是不是FORMR 的enable:=false

Answer 2

那个有有效的表单用Form.ShowModal方式打开

Answer 3

用 SetCapture 函数得到mouse 完全控制, ReleaseCapture 释放控制

Answer 4

用 “SetCapture 函数得到mouse 完全控制, ReleaseCapture 释放控制”
真的不懂；
我是个初学者，具体怎样。代码放在哪里。是
本表单里。
还是浮动菜单里。函数怎么写，我真的不知道啊。
求各位大侠了。谢谢

Answer 5

用 “SetCapture 函数得到mouse 完全控制, ReleaseCapture 释放控制”
真的不懂；
我是个初学者，具体怎样。代码放在哪里。是
本表单里。
还是浮动菜单里。函数怎么写，我真的不知道啊。
求各位大侠了。谢谢

Answer 6

新建一个窗口form_display，把表单控件放到这个新建的窗口里满屏显示。
主窗口通过一个按钮显示这个窗口：
  form_display:=Tform_display.Create(Application);
  form_display.ShowModal;
  form_display.Free;

Answer 7

我的天，还没有解决那！
这样，你在“录入”的点击事件里这样写：procedure TForm1.Button1OnClick(Sender : TObject);
var
InputForm : TForm2;
begin
InputForm := TForm2.Create(nil);
InputForm.ShowModal;
end;就可以了，当InputForm显示时，该程序其他窗口都不能被选择，直到InputForm被关闭。