Moviendo imagenes con el raton

[ZayDun]

Hola, estoy intentando hacer que una imagen se mueve con el raton, tengo el codigo pero no me termina de convencer ya que la imagen se mueve una vez he soltado el boton del raton, y lo que yo quiero es que la imagen siga al raton hasta que yo lo suelte. aqui dejo el codigo que utilizo por si se le puede agregar algo para mejorarlo o mejor otro metodo. saludos! y gracias.

Código Delphi [-]
procedure TForm1.o10MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var OrgFormPoint, CurCursorPoint, OrgCursorPoint: TPoint;
begin
OrgFormPoint.X := o10.Left;
OrgFormPoint.Y := o10.Top;
GetCursorpos(OrgCursorPoint);
While (GetAsyncKeystate(VK_LBUTTON) <> 0) do
begin
GetCursorpos(CurCursorPoint);
o10.Left := OrgFormPoint.X - OrgCursorPoint.X + CurCursorPoint.X;
o10.Top := OrgFormPoint.Y - OrgCursorPoint.Y + CurCursorPoint.Y;
end;

[ixMike]

Lo que pasa es que no mandas dibujar a la imagen hasta que se suelta:

Código Delphi [-]
procedure TForm1.o10MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
 var OrgFormPoint, CurCursorPoint, OrgCursorPoint: TPoint;
begin
 OrgFormPoint.X := o10.Left; 
 OrgFormPoint.Y := o10.Top;
 GetCursorpos(OrgCursorPoint);
 While (GetAsyncKeystate(VK_LBUTTON) <> 0) do
   begin
   GetCursorpos(CurCursorPoint);
   o10.Left := OrgFormPoint.X - OrgCursorPoint.X + CurCursorPoint.X;
   o10.Top := OrgFormPoint.Y - OrgCursorPoint.Y + CurCursorPoint.Y;
   Repaint; //Te falta esta línea
   end;
end;

Salu2


Edito: En vez de redibujar la imagen, has de redibujar todo el Form, ya que sino queda un "rastro".

[ZayDun]

gracias ixMike por la ayuda, parpadea un poco.. xD pero eso ya es otra cosa, Salu2

[ixMike]

Si, ya lo imaginaba que parpadearía... sería cuestión de redibujar sólo cuando hubiera movimiento, y no cuando estuviera parado

[ZayDun]

ya he solucionado el parpadeo, aqui dejo el codigo.. tan solo tenia que poner la propiedad DoubleBuffered del Form a True.

Código Delphi [-]
Form1.DoubleBuffered := true;