rafa
04 de Enero del 2006

Porfavor estoy haciendo un ajedrez y necesito saber como hago el evento para poder agarrar la ficha y moverla con el mouse

gracias por la ayuda que me puedan dar

thesphinx
04 de Enero del 2006

Primero debes declarar una variable(no en ningún evento declarala arriba , debajo de la declaración del Form) que sea booleana que se llama arrastrando y otra que se llame mouse y que sea tipo TPoint.

Entonces en el evento OnMouseUp pones:

arrastrando:=true;
Mouse.X:=X;
Mouse.Y:=Y;

Después en el OnMouseMove pones:

if arrastrando then
begin
Image1.Left:=Image1.Left-(mouse.X-X);
Image1.Left:=Image1.Left-(mouse.X-X);
end

Después en el OnMouseUp pones:

arrastrando:=false;

Este código está en Delphi ya que no especificaste lenguage alguno. Espero que te sirva.

Saludos.