Foros Club Delphi - Mover con el ratón....

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Mover con el ratón.... (https://www.clubdelphi.com/foros/showthread.php?t=1500)

Mover con el ratón....

Hola amigos. ¿Qué tal? Un preguntilla rápida. Vereis, en mi programa tengo una ventanita con un montón de dibujitos realizados sobre el canvas y me gustaria que esos dibujitos se desplazaran a la derecha o a la izquierda al pulsar con el ratón sobre ellos y mover un poco el puntero a la izquierda o a la derecha. Esto es, si pincho y muevo el puntero a la izquierda del lugar que he pinchado, aunque no mueva el ratón, los dibujos se irían desplazando a la izquierda lentamente; de igual forma sucederia hacia la derecha. He conseguido hacer algo parecido con MouseDown, MouseUp y MouseMove, pero si no muevo el puntero, no consigo que se mueva nada. ¿Hay alguna forma de hacerlo como deseo? Gracias de antemano. Un saludo.

Hola:

Esta pregunta encaja mejor en el foro de gráficos, creo.

Si te he entendido bien, lo que sucede es que cuando el ratón queda fuera del área de dibujo, sea un Panel por ejemplo, se siga moviendo en esa dirección, aunque el ratón esté quieto. Creo que tendrás que colocar un TTimer y hacer algo como esto:

Código:

var

  T : Longint;

  MoviendoIzq, MoviendoDer, MoviendoArr,

  MoviendoAba : Boolean;



procedure TForm1.Panel1MouseMove ( ... X, Y : Integer);

var

  MoviendoIzq := X < 0;

  MoviendoDer := X > Panel1.Width;

  MoviendoArr := Y < 0;

  MoviendoAba := Y > Panel1.Height;

  if MoviendoIzq OR MoviendoDer OR MoviendoArr OR

     MoviendoAba OR then T := GetTickCount;

  MueveDibujos (X - OldX, Y - OldY);

end;



// que MouseUp también apunte a este método

procedure TForm1.Panel1MouseDown ( ... );

var

  MoviendoIzq := FALSE;

  MoviendoDer := FALSE;

  MoviendoArr := FALSE;

  MoviendoAba := FALSE;

end;



procedure TForm1.Timer1OnTimer (..);

var

  DeltaX, DeltaY : Integer;

begin

  if (MoviendoIzq OR MoviendoDer OR MoviendoArr OR

     MoviendoAba) AND ((GetTickCount - T) > 1000) then

  begin

    if MoviendoIzq then DeltaX := -10;

    if MoviendoDer then DeltaX := 10;

    if MoviendoArr then DeltaY := -10;

    if MoviendoAba then DeltaY := 10;

    MueveDibujos (DeltaX, DeltaY);

  end;

end;

Muchas gracias Andrés.

A mi me parece que lo más adecuado sería usar las funciones SetCapture y ReleaseCapture de Windows.

SetCapture hace que los eventos del ratón los reciba el control que especifiquemos incluso si el ratón ya no está sobre el control.

Como yo no sé dibujar hice una prueba con un Panel y un Shape.

Primero, en el formulario declaras unas variables:

Código:

TForm1 = class(TForm)

private

  Dragging: Boolean; 

  DeltaX, DeltaY: Integer;

end;

Dragging le indicará al evento OnMouseMove si estamos o no arrastrando el dibujo. DeltaX y DeltaY son las diferencias iniciales entre el punto denode se hace click y la esquina superior izquierda del dibujo (o el punto del dibujo que tomes como base).

Los eventos son como sigue:

Código:

// PanelMouseDown

Dragging := true;

DeltaX := Shape.Left - X;

DeltaY := Shape.Top - Y;



SetCapture(Panel.Handle);



// PanelMouseUp

Dragging := false;

ReleaseCapture;



// PanelMouseMove

if Dragging then

begin

  Shape1.Left := X + DeltaX;

  Shape1.Top := Y + DeltaY;

end;

Nota En este ejemplo, no puedes pinchar sobre el Shape ya que entonces el Panel no recibe el evento MouseDown pero puedes arrastrarlo de cualquier forma si pinchas afuera.

// Saludos

Hola:

En realidad supuse que sólo se quería arrastrar mientras está pulsado el botón izquierdo del ratón. Aunque no conocía estas dos APIs, en las pruebas que hice, si pulsamos el botón del mouse sobre el Panel y arrastramos, aunque desplacemos el puntero fuera del área del Panel, se sigue disparando el evento OnMouseMove de dicho Panel, aunque con coordenadas negativas o superiores al ancho/alto respectivamente. Si soltamos el botón del mouse, aun estando fuera del área del Panel, también se dispara el evento OnMouseUp de dicho Panel.