Убрать мышку и передвижение Image на 50

[Alexandr17]

Как убрать мышку и сделать мышкой передвижение Image на 50 пикселей
В Lasarus

[Stilet]

Для какой операционки?

[Alexandr17]

ОС -Windows 7, Язык - Lasarus

[Stilet]

Ясно.

убрать мышку

ShowCursor(false)

сделать мышкой передвижение Image на 50 пикселей

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure Image1Click(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer
      );
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Image1Click(Sender: TObject);
begin

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1MouseMove(Sender,Shift,x,y);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var pt:TPoint;
begin
 pt:=ScreenToClient(Mouse.CursorPos);
 Image1.Top:=pt.y-Image1.Height div 2;
 Image1.Left:=pt.x-Image1.Width div 2;
end;

end.

Ну это так. Навскидку. Первое что пришло в голову.

[Alexandr17]

Нужно чтобы Image был по середин мышки

[Alexandr17]

и передвигался только по 50 пикселей допустим мышка прошла 50 пикселей он передвинулся. И был всегд по середине мышки

[Stilet]

А вот теперь поподробнее - что это, зачем и почему именно так.

[Alexandr17]

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

А вот теперь поподробнее - что это, зачем и почему именно так.зачем и почему именно так

Попытка сделать редактор карт для будущего создания игрового движка

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

зачем и почему именно такзачем и почему именно так

Размер тайла = 32 на 32
Именно так чтобы было удобно ставить тайлы(TImage) на поле (ScrolBox)