系统锁定 光标只能定位在edit里

Question

系统锁定 光标只能定位在edit里,光标不能在其它地方定位,除非输入正确的密码才行退出,起到锁定系统的作用

Answer 1

procedure TForm1.Edit1Change(Sender: TObject);
var
  ARect: TRect;
begin
  if Edit1.Text = '结贴' then
  begin
    ARect:= Rect(0,0,Screen.Width,Screen.Height);
    ClipCursor(@ARect);
  end;
end;procedure TForm1.Edit1Enter(Sender: TObject);
var
  ARect: TRect;
begin
  ARect:= Edit1.BoundsRect;
  MapWindowPoints(handle,0,ARect,2);   
  ClipCursor(@ARect);
end;

Answer 2

Win + L 就可以实现你的要求了啊。

Answer 3

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  if Edit1.Text <> '1' then Edit1.SetFocus;
end;