Как отключить курсор мыши
Материал из 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