На главную

Показать и убрать курсор

Показать и убрать курсор

ОГЛАВЛЕНИЕ HOME MAIL

В некоторых случаях изображение курсора мыши мешает. Чтобы его не было видно достаточно вызвать процедуру ShowCursor(false).

var
  sc: boolean = false;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowCursor(sc);
  sc := not sc;
end;