Четверг, 21.06.2018, 22:32
Главная Регистрация RSS
Приветствую Вас, Гость
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: vavilov8  
Форум » Delphi » Уроки » Как програмно отключить и включить мышь
Как програмно отключить и включить мышь
vavilov8Дата: Четверг, 05.01.2012, 18:34 | Сообщение # 1
Титул: Генералиссимус
Сообщений: 10
Репутация: [ 0 ]
Как програмно отключить и включить мышь

Code
procedure TForm2.Button1Click(Sender: TObject);
var curpos: TPoint;
     lockrect: TRect;
     n: integer;
begin
//"выключаем" мышку
n:=1; //при 1 мышь неподвижна, другие значения дают ей
//возможность затравленно дергаться
GetCursorPos(curpos);
lockrect.Right:=curpos.X;
lockrect.Left:=lockrect.Right-n;
lockrect.Bottom:=curpos.Y;
lockrect.Top:=lockrect.Bottom-n;
ClipCursor(@lockrect);
end;

procedure TForm2.Button2Click(Sender: TObject);
var lockrect: TRect;
begin
//"включаем" мышку
lockrect.Left:=0;
lockrect.Top:=lockrect.Left;
lockrect.Right:=GetSystemMetrics(SM_CXSCREEN);
lockrect.Bottom:=GetSystemMetrics(SM_CYSCREEN);
ClipCursor(@lockrect);
end;
Форум » Delphi » Уроки » Как програмно отключить и включить мышь
  • Страница 1 из 1
  • 1
Поиск: