Как сделать чтобы пропадал курсор

[lionman]

Как сделать так чтобы когда в моем проигрывателе При воспроизведении видео на весь экран по истечению 3 сек пропадал курсор, а при движении мышью снова появлялся.

[mihali4]

Да нет тут ничего заумного:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Screen.Cursor:=crDefault;
Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Enabled:=False;
Screen.Cursor:=-1;
end;

[BOBAH13]

Api существует ShowCursor, если не ошибаюсь

[mihali4]

То BOBAH13
Тут, по-моему, не до АПИ...

[Алкаш]

по-моему
Screen.Cursor:=-1;
вполне хватит, если в OnFormCreate прописать
---
по-крайней у меня всегда срабатывало
---
mihali4, зачем там таймер?

[Crivel]

//Убрать
ShowCursor(false);
//Показать
ShowCursor(true);