Foros Club Delphi - Arrastrar hacia el form

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

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

- - Arrastrar hacia el form (https://www.clubdelphi.com/foros/showthread.php?t=48632)

Arrastrar hacia el form

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

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

En Google hay mucha información al respecto.

Saludos.

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

1- Coloca esto debajo del private:

Código:

...

  private

    { Private declarations }

    procedure CapturaMsgDropFile(var Msg: TWMDropFiles); message WM_DROPFILES;

...

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

Código:

...

 

  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:

Código:

DragAcceptFiles(Handle, true);

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

saludos
aeff!!