Hi. Also ich verstehe mein Problem eigentlich überhaupt nicht.
Mein Programm wird als Vollbild betrieben. Ich will nun, dass wenn die Maus 4 sec. nicht bewegt wird ausgeblendet wird.
Ich hab es nun so gelöst, dass ich beim FormActivate die Maus unsichtbar mache (cursor := -1) und dann auf das Ereignis "OnMouseMove" wieder sichtbar. Im Hintergrund läuft dann ein Timer der dann den Mauszeiger nach 4 sec. wieder unsichtbar macht.
Hier das Problem:
Alles funktioniert, solage der Mauszeiger direkt auf der Form ist. Befindet sich der Mauszeiger auf einem Label oder anderem Objekt bleibt die immer Maus sichtbar, obwohl der Timer doch läift.
Kann mir das jemand erklären?
Delphi-Quellcode:
procedure TForm3.MauszeigerTimer(Sender: TObject);
begin
Cursor := -1;
end;
procedure TForm3.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
Cursor := +1;
end;