Скрыть курсор.

[Alex Cones]

Як скрыть курсор (указатель мыши) до поры до времени, не отключая при этом клаву?

[DIgorevich]

//Выключение курсора
procedure TForm1.Button1Click(Sender: TObject);
var
  CState: Integer;
begin
  CState := ShowCursor(True);
  while Cstate >= 0 do
    Cstate := ShowCursor(False);
end;

//Включение курсора
procedure TForm1.Button2Click(Sender: TObject);
var
  Cstate: Integer;
begin
  Cstate := ShowCursor(True);
  while CState < 0 do
    CState := ShowCursor(True);
end;

[Alex Cones]

//Выключение курсора
procedure TForm1.Button1Click(Sender: TObject);
var
  CState: Integer;
begin
  CState := ShowCursor(True);
  while Cstate >= 0 do
    Cstate := ShowCursor(False);
end;

//Включение курсора
procedure TForm1.Button2Click(Sender: TObject);
var
  Cstate: Integer;
begin
  Cstate := ShowCursor(True);
  while CState < 0 do
    CState := ShowCursor(True);
end;

Зачем нужны выделенные строки? У меня получилось вырубить простым ShowCursor(FALSE);

[DIgorevich]

Ну, собственно, код не мой, был взят из ДелфиВорд

[Alex Cones]

Разобрался. Курить MSDN.