Как отключить курсор мыши

Материал из DRKB

Как отключить курсор мыши[править | править код]

// Выключение курсора
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;


Source: http://delphiworld.narod.ru/
ID: 02336