Arrastrar Y Soltar Objeto Con El Raton

[ciscu]

HOLA QUE TAL?

TENGO LA CURIOSIDAD DE MOVER UN OBJETO CON EL RATON Y LO HAGO DE LA SIGUIENTE MANERA:

procedure TForm1.FormDragDrop(Sender, Source: TObject; X, Y: Integer);
begin
if Source is TImage then
begin
TImage(Source).Left := X;
TImage(Source).Top := Y;
end;
end;

procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := (Source is TImage);
end;


EL PROBLEMA ES QUE CUANDO ESTOY MOVIENDO EL RATON ARRASTRANDO EL OBJETO, ESTE OBJETO SE QUEDA EN EL SITIO DE INICIO DE ARRASTRE HASTA QUE LO SUELTAS EN EL LUGAR DE DESTINO

PODRIAS DECIRME COMO PUEDO MOVER EL OBJETO MIENTRAS ESTOY MOVIENDO EL RATON??

GRACIAS ANTICIPADAS.

[[eduarcol]]

en el drag over luego de la linea:

Accept := (Source is TImage);

inserta estas dos lineas

TImage(Source).Left := X;
             TImage(Source).Top := Y;

y para la proxima utiliza las etiquetas code