请问如何在form窗体刚启动时就锁定鼠标呢？

Question

可以这么做：可以调用如下过程实现：procedure tform1.formcreate(sender:tobject);
var
  r:trect;
begin
  r:=form1.clientrect;
  r:=clienttoscreen(form1.handle,r);
  clipcursor(@r);
end;procedure tform1.formclose(sender:tobject);
begin
  clipcursor(nil);
end;这样，在程序启动时，鼠标就被锁定在你的form1上了。关闭Form1才能解开
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
风过西窗客渡舟船无觅处
年年一川新草遥看却似旧