Форум: "WinAPI";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];
ВнизЧувствительность курсора мыши к перемещениям Найти похожие ветки
← →
Анонимщик (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.
← →
Анонимщик (2002-03-05 19:33) [2]Спасибо, даст бог, и я тебе что-нибудь отвечу, запишу тебя сейчас в красненькую книжечку, а остальным - болт.
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.05.09;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c