FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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.
__________________
craven |
#2
|
|||
|
|||
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;
__________________
Guía de Estilo |
#3
|
|||
|
|||
Muchas gracias Andrés.
__________________
craven |
#4
|
||||
|
||||
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; 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; // Saludos |
#5
|
|||
|
|||
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.
__________________
Guía de Estilo |
|
|
|