Moviendo imagenes con el raton

[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;