Arrastrar y Soltar

[Panasys]

Excelente... Gracias!

[ecfisa]

Hola Panasys.

Mis disculpas . Se me escapó que en el código que pusiste se verifica que esté presionada la tecla Ctrl, para lograr el mismo efecto sería:

Código Delphi [-]
procedure TForm1.MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  if ssCtrl in Shift then
  begin
    ReleaseCapture;
    (Sender as TControl).Perform(WM_SYSCOMMAND, $F012,0);
  end;
end;

Saludos.

[Panasys]

Si Señor ahora si !

Funciona perfecto !

Aunque no hace falta que presione CTRL, arrastra y suelta sin problemas.

Muchas gracias.

Un abrazo.

Javier

[roman]

El código original debe funcionar. El único problema que le veo es en

Código Delphi [-]
procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := (Source is TImage) ;
  Accept := (Source is TPanel) ;
end;

Si lo que arrastras es una imagen, la primera línea indica al formulario que debe aceptar el objeto, pero la segunda línea lo contradice puesto que Source es una imagen y no un panel.

El código debería ser así:

Código Delphi [-]
procedure TForm1.FormDragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept := (Source is TImage) or (Source is TPanel) ;
end;

Sin ánimos de demeritar, creo que es mejor adherirse a los eventos de la VCL que ir a "bajo nivel".

// Saludos

[ecfisa]

Empezado por roman

Sin ánimos de demeritar, creo que es mejor adherirse a los eventos de la VCL que ir a "bajo nivel".

Tenés toda la razón. (Eso aún sin hablar de la pérdida de compatibilidad que acarrea)

Vicios que uno tendría que sacarse...

La única y pobre escusa que puedo argumentar es mi haraganería, probás que algo funciona y...

Un saludo.

[Panasys]

Jajajajaaaa... eso es lo bueno de estar entre programadores, yo solo tire una consulta para ver por donde ir y me llovieron respuestas una mejor que la otra !!!

Gracias !!!

Ahora no solo he aprendido a arrastrar y soltar sino como hacerlo y las diferencias entre distintos procedimientos. Es mas de lo que esperaba.

Un abrazo amigos !.

Javier