Mover con el ratón....

[roman]

A mi me parece que lo más adecuado sería usar las funciones SetCapture y ReleaseCapture de Windows.

SetCapture hace que los eventos del ratón los reciba el control que especifiquemos incluso si el ratón ya no está sobre el control.

Como yo no sé dibujar hice una prueba con un Panel y un Shape.

Primero, en el formulario declaras unas variables:

TForm1 = class(TForm)
private
  Dragging: Boolean; 
  DeltaX, DeltaY: Integer;
end;

Dragging le indicará al evento OnMouseMove si estamos o no arrastrando el dibujo. DeltaX y DeltaY son las diferencias iniciales entre el punto denode se hace click y la esquina superior izquierda del dibujo (o el punto del dibujo que tomes como base).

Los eventos son como sigue:

// PanelMouseDown
Dragging := true;
DeltaX := Shape.Left - X;
DeltaY := Shape.Top - Y;

SetCapture(Panel.Handle);

// PanelMouseUp
Dragging := false;
ReleaseCapture;

// PanelMouseMove
if Dragging then
begin
  Shape1.Left := X + DeltaX;
  Shape1.Top := Y + DeltaY;
end;

Nota En este ejemplo, no puedes pinchar sobre el Shape ya que entonces el Panel no recibe el evento MouseDown pero puedes arrastrarlo de cualquier forma si pinchas afuera.

// Saludos