Mausspur (de)aktivieren

[fkerber]

Hi!

turboPASCAL hat hier eine einfache Möglichkeit vorgestellt, wie man die Mausspur an- bzw. ausschaltet:

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;

Aufgerufen wird das Ganze bspw. so:

Delphi-Quellcode:

procedure TFormX.CheckBox1Click(Sender: TObject); 
begin 
  SetMouseTrail(CheckBox1.Checked); 
end;

Ciao Frederic