| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Чувствительность курсора мыши к перемещениям

Анонимщик ©   (2002-03-05 10:43:00) 

Как можно программно изменить чувствительность курсора мышки к перемещениям?

---

Анонимщик   (2002-03-05 19:33:00) [1]

Спасибо, даст бог, и я тебе что-нибудь отвечу, запишу тебя сейчас в красненькую книжечку, а остальным - болт.

---

copyr25   (2002-03-05 17:14:00) [2]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}
var check: Array[0..2] of Integer;

const mspeed: Array[0..6,0..2] of Integer=
((0, 0, 0), (10, 0, 1), (7, 0, 1),
(4, 0, 1), (4, 10, 2), (4, 7, 2),
(4, 4, 2));
tempo: Integer = - 1;

procedure step;
begin
inc(tempo);
if tempo > 6 then tempo := 0;
systemparametersinfo(SPI_SETMOUSE, 1, @mspeed[tempo], 0);
form1.label1.caption :=
"Step: " + inttostr(tempo + 1);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
systemparametersinfo(SPI_GETMOUSE, 0, @check, 0);
step;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
systemparametersinfo(SPI_SETMOUSE, 1, @check, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
step;
end;

end.

---

Наверх