几个小问题，望各位高手帮忙~！！

Question

1.怎样让登陆的小窗口在屏幕的中央显示？
2.小窗口启动后，锁定鼠标在这个窗口中？？
3.让一个窗口满屏显示，不会因为设置的像数不同，而不同~~

Answer 1

1.LoginForm.Position := poScreenCenter;3.Form1.WindowState := wsMaximized;2.是其他程序也不允许切换过去吗？

Answer 2

恩，禁用alt+tab,,
把鼠标锁定在窗口中

Answer 3

限制鼠标：
var Rect:TRect;
begin
  GetWindowRect(Form1.Handle,Rect);
  Clipcursor(@Rect);
end;
解除限制：
Clipcursor(0)如果你想禁用Alt+Tab,最好Ctrl+F4,Ctrl+Alt+Del也禁了，哈哈

Answer 4

还要例子啊？直接放在登陆窗体.OnShow事件里面好了。

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var aForm:TForm;
    Rect:TRect;
begin
  aForm:=TForm.Create(self);
  aForm.Position:=poDeskTopCenter;
  aForm.Show;
  GetWindowRect(aForm.Handle,Rect);
  Clipcursor(@Rect);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  Clipcursor(0);
end;

Answer 6

procedure LoginForm.FormShow(Sender: TObject);
var Rect:TRect;
begin
  GetWindowRect(LoginForm.Handle,Rect);
  Clipcursor(@Rect);
end;记得在登陆窗体里面加个按钮来恢复，在按钮.Click事件里面写Clipcursor(0);

Answer 7

哦，可是我以前看到一个系统，那个窗口一出现，鼠标就锁定了，也是用的Delphi7做的，不知道可以实现不？/

Answer 8

登陆窗体.OnShow事件里面好了。
=================================
我以前试过不行啊，它把鼠标锁到其他地方去了！！而且窗口也没显示出来~~

Answer 9

刚试了，没有效果~~不知道那里有问题！！
procedure Tlogmain.FormShow(Sender: TObject);
var Rect:TRect;
begin
  GetWindowRect(logmain.Handle,Rect);
  Clipcursor(@Rect);
end;
procedure Tlogmain.BitBtn2Click(Sender: TObject);
//var
 //  rtScreen: TRect;     //解锁鼠标
begin
   Clipcursor(0);
 //  rtScreen := Rect(0, 0, Screen.Width, Screen.Height);
// ClipCursor(@rtScreen);
end;

Answer 10

设置BreakPoint看看有没有运行到Clipcursor(@Rect);

Answer 11

[Warning] loginsys.pas(128): Constant 0 converted to NIL
============================================================
我在procedure Tlogmain.FormShow(Sender: TObject);
过程的end;处设置断点，鼠标会被锁定的，可是显示出来了就不行；