JTSOFT -FAQ по Delphi-

Главная / FAQ по Delphi / Отключение курсора мыши

Отключение курсора мыши

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

Предыдущий вопрос |

| Следующий вопрос

by ktima

Сайт управляется системой uCoz