Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

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

https://delphiworld.narod.ru/

DelphiWorld 6.0