Mausspur

[turboPASCAL]

Oder einfach nur:

Delphi-Quellcode:

// Die Function SystemParametersInfo() gibts in der Unit Windows.

uses
  Windows,...

function SetMouseTrail(const MouseTrailState: Boolean): Boolean;
var State: Byte;
begin
  if MouseTrailState then State := succ(1) else State := pred(1);

  Result := SystemParametersInfo(SPI_SETMOUSETRAILS, State, nil, 0);
end;

Obwohl der Aufruf klar ist mach ich mal ein Beispiel :

Delphi-Quellcode:

procedure TFormX.CheckBoxXClick(Sender: TObject);
begin
  SetMouseTrail( CheckBoxX.Checked );
end;