Управление курсором

[BuT@JL]

Привет всем... Вообщем мне нужно чтобы в моей программе я не мог передвигать курсор мышкой, мне нужно чтобы курсор передвигался за счет нажатия на кнопки клавы. Кто знает как это сделать если это вообще возможно, помогите пожалуста!!!

[Alex Cones]

SetCursorPos(X,Y);
Остальное - просто.

[BuT@JL]

Спасибо, но мне нужно чтобы я не мог передвигать курсор МЫШКОЙ в приложение, ну как бы отключить её только в моей проге.

[profi]

var
  Form1: TForm1;
  pt:TPoint;
  x,y:integer;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  GetCursorPos(pt);
  x:=pt.X;
  y:=pt.Y;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin


case Key of
  37: x:=x-3;
  38: y:=y-3;
  39: x:=x+3;
  40: y:=y+3;
end;

  SetCursorPos(x,y);

end;

end.

[profi]

Отключить мышку

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;

Этот пример нашел в google.ru, пользуйтесь поиском примеров куча.

[BuT@JL]

profi Да нет, это не то, курсор просто исчезает, мне нужно чтобы его было видно на форме, просто чтобы его нельзя было передвигать с помощью мыши.

[Arigato]

Можно запомнить координаты курсора и в таймере каждую 1 мс. возвращать его обратно. Но решение не очень...

[raxp]

а еще можно так, слегка модифицируем 1-пример profi:

case Key of
  37: x:=x-3;
  38: y:=y-3;
  39: x:=x+3;
  40: y:=y+3;
end;
 pt.X:= x;
 pt.Y:= y;
  SetCursorPos(x,y);

иии добавляем перехват...

private procedure DefaultHandler(var M); override;
end;
...


procedure Tform1.DefaultHandler(var M);
begin
 if TMessage(M).Msg = WM_MOUSEMOVE then SetCursorPos(pt.X,pt.y);
 inherited
end;

- но, имхо таймер делает тоже самое

[BuT@JL]

Arigato я попробывал и в таймере и в ApplicationEvents... да, решение не очень )

[Arigato]

Курсор успевает отклониться.
А что, если просто нарисовать свой курсор, а стандартный спрятать?