Движение указателя по форме или Image

[nevo]

Надо чтоб указатель двигался с привязкой к точкам (допустим ч/з каждые 50точек), как по координатной сетке (например как в AutoCAD) во все 4 направления.
P.S. Немогу реализовать идею. HELP!!!
. . . . . .
. . . . . .
. . . . . .
. . . . . .
. . . . . .
указатель мыши должен двигаться только по отмеченным точкам.

[alexBlack]

Попробуй вот это:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
     ignore : boolean;
     CurPos : TPoint;
     LastPos : TPoint;
     procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.CMMouseEnter(var Message: TMessage);
begin
   if ignore then exit;
   GetCursorPos(CurPos);
   LastPos := ScreenToClient(CurPos);
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var P:TPoint;
    Delta : TPoint;
begin
   if ignore then exit;

   Delta.X := X - LastPos.X;
   Delta.Y := Y - LastPos.Y;
   if (Delta.X = 0) and (Delta.Y = 0) then exit;

   P := Point(CurPos.X+Delta.X, CurPos.Y+Delta.Y);
   P.X := (P.X div 16) * 16 + 16;
   P.Y := (P.Y div 16) * 16 + 16;

   CurPos.X := CurPos.X + Delta.X;
   CurPos.Y := CurPos.Y + Delta.Y;
   LastPos := ScreenToClient(P);

   ignore := true;
   try
      SetCursorPos(P.X, P.Y);
   finally
      ignore := false;
   end;

   Label1.Caption := IntToStr(CurPos.X) + ' x ' + IntToStr(CurPos.Y);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   SetCursorPos(0, 0);
   ignore := false;
end;

procedure TForm1.FormPaint(Sender: TObject);
var i, j:integer;
begin
   for i:=1 to width div 16 do begin
      for j:=1 to height div 16 do begin
         Canvas.Pixels[i*16,j*16] := clBlack;
      end;
   end;
end;

end.

[nevo]

Почти то, но надо чтобы координаты перескакивали вместе с курсором (Пример: (0,0), (0,50),(50,50), и т.д) т.е если курсор находится на точке то он должен точно отображать ее координаты(X,Y), а при движении курсора допустим в право вниз показать сразу (X+50,Y+50) а не так как в примере. Хотя и на этом спасибо.

[alexBlack]

Дискретность легко заменить. В коде меняем 16 на 50 и все.
Если нужны пояснения, спрашивай.

[nevo]

Нашел другой вариант более подходящий но немогу избавится от передергивания курсора, немного раздражает, помогите если это возможно.
Заранее спасибо!

procedure MOUSEMOVE(var Message: TWMMouseMove); message WM_MOUSEMOVE;
...
var
Change: Boolean = False;
...
procedure TForm1.MOUSEMOVE(var Message: TWMMouseMove);
const
Step = 20;
var
NewPos: TPoint;
Tmp: Integer;
begin
Change:=not Change;
Label1.Caption:=IntToStr(Message.XP os);
Label2.Caption:=IntToStr(Message.YP os);
Tmp:=(Message.XPos div Step)*Step;
if Message.XPos mod Step > Step div 2 then
Tmp:=Tmp + Step;
NewPos.X:=Tmp;
Tmp:=(Message.YPos div Step)*Step;
if Message.YPos mod Step > Step div 2 then
Tmp:=Tmp + Step;
NewPos.Y:=Tmp;
NewPos:=ClientToScreen(NewPos);
if not Change then
SetCursorPos(NewPos.X, NewPos.Y);
end;

[alexBlack]

ИМХО он все равно будет дергаться. Дело в том, что когда мы получаем событие, курсор уже передвинут, а мы его переставляем.

Есть еще вариант. Когда курсор заходит на форму, отключаем его - ShowCursor(false) и рисуем сами, там, где нам нужно. Когда уходит с формы - включаем.