Privacidad: Recuerde que la información escrita en los foros de programación es 100% pública y que su ip será registrada asociada a su mensaje. Si encuentra un mensaje fuera de lugar, por favor, notifiquelo para su revisión y eliminación.
Aayuda
Enviado por rafa el día 4 de enero de 2006
Porfavor estoy haciendo un ajedrez y necesito saber como hago el evento para poder agarrar la ficha y moverla con el mouse
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.
Foros de debate
Delphi / Kylix / C++ Builder
