Cursor

[NeiL]

Господа программисты... Возник вопрос: Как сделать, чтобы курсор мыши передвигался (на форме в компоненте panel) через заданное количество пикселей. То есть если задать два то курсор передвигается каждый раз на 2 пикселя (в любом направлении).

[B_N]

через GetCursorPos и SetCursorPos

[Altera]

Как это так???

[pu4koff]

вот на скорую руку написал чего-то.

var
  Form1: TForm1;
  old: TPoint;

const
  delta = 10;

implementation

{$R *.dfm}

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  flag: boolean;
  cur: TPoint;
begin
  GetCursorPos(cur);
  cur.x := cur.X - x;
  cur.Y := cur.Y - y;
  flag := false;
  if (x mod delta <> 0) then
  begin
    if old.X > x then x := x - x mod delta
    else x := x + delta - x mod delta;
    flag := true;
  end;
  if (y mod delta <> 0) then
  begin
    if old.y > y then y := y - y mod delta
    else y := y + delta - y mod delta;
    flag := true;
  end;
  if flag then
  begin
    cur.x := cur.x + x;
    cur.y := cur.y + y;
    SetCursorPos(cur.x,cur.y);
    old.X := x;
    old.Y := y;
  end;
end;

не самый лучший вариант конечно, оптимизировать и оптимизировать, но вроде ботает )

[Карась]

Сообщение от Altera

Как это так???

Привязка к "сетке".....