Delphi для всех

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

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

var
sc: boolean = false;

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