Category: Windows
Title: Confine the mouse
Date added: 15.03.2006
Hits: 3994


procedure TForm1.Button1Click(Sender: TObject);
var
  Rect: TRect;
begin
  Rect.Left   := Left;
  Rect.Top    := Top;
  Rect.Right  := Left + Width;
  Rect.Bottom := Top + Height;
  ClipCursor(@Rect);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ClipCursor(nil);
end;

1. How to show the format dialog? (3355 Hits)

2. How to control the windows task bar and the windows start button? (5024 Hits)

3. How to delete an item from the SystemMenu? (3511 Hits)

4. How to hide a program from the taskbar? (5063 Hits)

5. How to prevent Alt+F4? (6258 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.