FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Mover objeto arrastrandolo con el raton
Hola a todos, en primer luguar felicitaros el año y que todos tengais mucha suerte en este año.
Mi dudilla es que no se como en tiempo de ejecucion mover un objeto pinchando en él y arrastrandolo con el ratón. Muchas gracias a todos. |
#2
|
|||
|
|||
Si me dijeras que es lo que quieres hacer seria bueno, para que te pudieramos ayudar
Porque no se si quieres arrastrar un boton o un panel por el form, o quieres arrastrar un archivo desde el explorador a tu aplicacion o un archivo desde un combo a un image o que? Saludos |
#3
|
|||
|
|||
Hola a todos y feliz año, ivanmm entiendo que quieres mover un objeto dentro de un form para ello te recomiendo revises este hilo, el código dado funciona perfectamente. Si deseas hacer un drag and drop entonces puedes revisar la ayuda que ahí hay ejemplos de como usar los eventos para ello.
Saludos |
#4
|
|||
|
|||
Entonces si lo que dice ruben de que es un objeto creo que la mejor opcion es
Pones un image en el form, le pones dragmode a automatico del image, le pones una foto, este codigo al form y ya. Código:
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; |
#5
|
|||
|
|||
Gracias a todosya tengo el problema resuelto, al final me ha valido con los procedimientos "FormDragDrop" y "FormDragOver" que me habeis dicho.
Muchas Gracias a Todos. |
|
|
|