» Как програмно отключить и включить мышь - Аппаратные средства, Мышка, Delphi. Библиотека исходников форума программистов - programmersforum.ru

delphi исходники для управления windows

У нас вы качаете только рабочие исходники

форум программистов

Home

Форум программистов Delphi

Как програмно отключить и включить мышь

Как програмно отключить и включить мышь

Как програмно отключить и включить мышь

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;

Эта запись была добавлена в Суббота, 3 мая, 2008 - 20:23 В разделы Аппаратные средства, Мышка. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.

Обсуждение закрыто.

Emtas турецкий пеллетный котёл

Пеллетные котлы интернет магазин

Архивы
- Май 2008
- Декабрь 2007
Категории
- Delphi (226)
  - BDE (3)
  - dll (10)
  - Exceptions (2)
  - IDE (10)
  - INI-файлы (3)
  - OLE (2)
  - БД (7)
  - Игры (19)
  - Медиа (11)
  - Ресурсы (12)
  - Сеть, модем (22)
  - Система (33)
  - Файлы (6)
  - Функции (6)
- Microsoft Office (12)
  - Excel (7)
  - Word (5)
- Pascal (12)
- Win API (85)
  - Hooks (4)
  - Завершение работы (13)
  - Запуск программ (16)
  - Общие вопросы (22)
  - Окна (1)
  - Переменные среды (9)
- Алгоритмы (86)
  - Графика (52)
  - Дата, время (6)
  - Кодирование (6)
  - Математика (4)
  - Преобразования (4)
- Аппаратные средства (76)
  - BIOS (3)
  - CD, DVD (7)
  - Видеосистема (3)
  - Диски (4)
  - Звуковые устройства (4)
  - Источники питания (1)
  - Клавиатура (24)
  - Мышка (5)
  - Порты (20)
  - Процессор (4)
  - Сетевая карта (1)
- Базы данных (29)
  - ADO (9)
  - BLOB поля (11)
  - DBase (1)
  - interbase (5)
  - MS Office (2)
  - sql (1)
- Классы (28)
  - Application (5)
  - TBitMap (4)
  - TCanvas (2)
  - TDateTime (1)
  - TFont (4)
  - TIcon (2)
  - TJpegImage (1)
  - TList (1)
  - TmetaFile (1)
  - TString, TStrings (4)
- Компоненты (172)
  - BitBtn (4)
  - ComboBox (2)
  - CoolBar (1)
  - DBCtrlGrid (1)
  - DBGrid (18)
  - DBImage (2)
  - DrawGrid (1)
  - Edit (3)
  - FileListBox (1)
  - form (29)
  - image (12)
  - ImageList (3)
  - Label (1)
  - ListBox (9)
  - ListView (2)
  - MediaPlayer (6)
  - Memo (8)
  - Menu (5)
  - PageControl (1)
  - ProgressBar (2)
  - Query (1)
  - RadioButton (1)
  - RadioGroup (1)
  - RichEdit (4)
  - ScrollBox (3)
  - ShellListView (2)
  - SpeedButton (1)
  - StatusBar (1)
  - StringGrid (4)
  - TabbedNoteBook (1)
  - Timer (2)
  - TrackBar (1)
  - TreeView (15)
  - WebBrowser (6)
- Операционная система (183)
  - Help (3)
  - Диалоги (25)
  - Процессы (26)
  - Реестр (5)
  - Сети, интернет (36)
  - Сообщения (7)
  - Файловая система (37)
  - Экран (13)
  - Ярлыки (5)
- Разное (79)
Кейворды

форум программистов