Images mit cursor bewegen !?

[Gandalfus]

Delphi-Quellcode:

procedure TImage.MouseDown(Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inherited;
  Fcury := mouse.CursorPos.y;
  Fcurx := mouse.CursorPos.x;
  FTimereasymove.Enabled := true //easy move wird aktiviert
end;

procedure TImage.MouseUp(Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  inherited;
  FTimereasymove.Enabled := false;
end;

procedure FTimereasymoveTimer(Sender: TObject);// der Timer ist für easy move zuständig
var
  Mousey,Mousex: integer;
begin
  Mousex := Mouse.CursorPos.x;
  Mousey := Mouse.CursorPos.y;
  IF Mousex > Fcurx then
  begin
    left := left + (Mousex - Fcurx);
    Fcurx := Mousex;
  end;
  IF Mousex < Fcurx then
  begin
    left := left - (Fcurx - Mousex);
    Fcurx := Mousex;
  end;
  IF Mousey > Fcury then
  begin
    Top := Top + (Mousey - Fcury);
    Fcury := Mousey;
  end;
  IF Mousey < Fcury then
  begin
    Top := Top - (Fcury - Mousey);
    Fcury := Mousey;
  end;
end;

create:

Delphi-Quellcode:

 inherited create(AOwner);
  Timereasymove := TTimer.create(self);
  Timereasymove.Enabled := false;
  Timereasymove.Interval := 55;
  Timereasymove.OnTimer := FTimereasymoveTimer;

destroy;
  FTimereasymove.free;