Naja, gerade deswegen würde ich auf SetSystemCursor verzichten wollen.
Ich habe es fast hinbekommen. Ein zweites (weisses) Fenster erzeuge ich, dessen AlphaBlendValue := 5 ist. Es hat fsStayOnTop und im OnClick dieses Forms wird es wieder versteckt und der Cursor in seinen Urzustand versetzt. Das klappt fast. Nur "fast" weil ich erst dieses Fenster durch Click aktivieren muss. Ich versuch durch SetFocus es zu aktivieren, aber das reicht scheinbar nicht.
Schnpisel aus dem auslösenden ButtonClick dazu:
Delphi-Quellcode:
Screen.Cursor := crCross;
SetCaptureControl(Self);
Application.ProcessMessages;
Form2.Left :=0;
Form2.Top := 0;
Form2.Width := Screen.Width;
Form2.Height := Screen.Height;
Form2.Show;
Form2.SetFocus;
Timer1.Enabled := True;
Sherlock