Arrastrar hacia el form

[Khronos]

Pues, eso estuve buscando la forma de como arrastrar elementos del escritorio de windows o de una carpeta a un componente en mi form.
Por ejemplo: arrastrar una imagen a un TImage.

¿Como podria hacerlo y como capturo la direccion del archivo que arrastras?


Salu2

[[xEsk]]

Hola, aquí uno de los muchos ejemplos que hay por Internet.

En Google hay mucha información al respecto.

Saludos.

[aeff]

saludos, espero que te sirva esto que te voy a explicar, mira,

1- Coloca esto debajo del private:

...
  private
    { Private declarations }
    procedure CapturaMsgDropFile(var Msg: TWMDropFiles); message WM_DROPFILES;
...

2- Debajo del implementation de tu unit, pon esto:

...
 
  uses ShellApi;
procedure TForm1.CapturaMsgDropFile(var Msg: TWMDropFiles);
var
  fCount, i: Integer;
  fName: array[0..255] of Char;
begin
  fCount := DragQueryFile(Msg.Drop, $FFFFFFFF, fName, 1);
  for i := 0 to fCount -1 do
    begin
      DragQueryFile(Msg.Drop, i, fName, sizeof(fName));
      ShowMessage(fName);
    end;
  DragFinish(Msg.Drop);
end;

...

por último, en el onCreate de tu form: coloca esta linea:

  DragAcceptFiles(Handle, true);

espero que te sirva de algo lo que te puse aqui,

saludos
aeff!!