Arrastrar y Soltar

[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