Foros Club Delphi - Mover objeto arrastrandolo con el raton

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

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

- - Mover objeto arrastrandolo con el raton (https://www.clubdelphi.com/foros/showthread.php?t=6353)

ivanmm

03-01-2004 11:40:17

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.

Descendents

03-01-2004 15:58:27

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

Ruben_Cu

03-01-2004 16:06:47

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

Descendents

03-01-2004 16:25:42

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;

Saludos

ivanmm

03-01-2004 19:36:33

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.

La franja horaria es GMT +2. Ahora son las 09:17:03.