// Die Mausgeschwindigkeit wird in 7 Stufen geändert.
// Mit den Werten in "
mgeschw" darf experimentiert werden.

// Getestet mit D4 unter Win98

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-Deklarationen} 
  public 
{ Public-Deklarationen} 
  end; 
 
var 
  Form1: TForm1; 
 
implementation 
 
{$R *.DFM} 
 
var 
  mmerk: array[0..2] of integer; 
 
const 
  mgeschw: 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 stufe; 
begin 
  inc(tempo); 
  if tempo > 6 then tempo := 0; 
  systemparametersinfo(spi_setmouse, 1, @mgeschw[tempo], 0); 
  form1.label1.caption := 'Stufe: ' + inttostr(tempo + 1); 
end; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
  systemparametersinfo(spi_getmouse, 0, @mmerk, 0); 
  stufe; 
end; 
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
  systemparametersinfo(spi_setmouse, 1, @mmerk, 0); 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  stufe; 
end; 

 


Zugriffe seit 6.9.2001 auf Delphi-Ecke