有关控制鼠标和键盘的问题

Question

在程序运行中，当鼠标按下某个BUTTON时，程序在运行时，如何使程序运行结束前，
使用者在按任何键和鼠标都不管用。

Answer 1

好像是keypress();
begin
  key:=0
end
鼠标的不太清楚，不过有相关文档可供参考

Answer 2

看看我的。是不是这样的东西:)
procedure TForm1.Button1Click(Sender: TObject);
// 点击按钮1锁定
var
lockbut: TRect;
begin
lockbut := Button2.BoundsRect;
 // 坐标位于BUTTON的位置，你可以自己制定
MapWindowPoints(handle, 0, lockbut, 2);
ClipCursor(@lockbut); // 限制鼠标移动区域
end;procedure TForm1.Button2Click(Sender: TObject);
//点击按钮2. 解锁
var
rtScreen: TRect;
begin
rtScreen := Rect(0, 0, Screen.Width, Screen.Height);
ClipCursor(@rtScreen);
end;

Answer 3

将form的borderstyle属性设为bsnone，windowstate设为wsMaximized，formstyle设为fsStayOnTop，在form的鼠标和键盘事件中不作任何处理
还要在注意：
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Brush.Style:=bsclear;
end;
哈哈，OK了！！

Answer 4

写窗体的
OnKeyDown，OnMouseDown事件