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

← →
Анонимщик © (2002-03-05 10:43) [0]

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

← →
copyr25 © (2002-03-05 17:14) [1]

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.

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

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