Drag and drop filenames

see this link: http://www.martinstoeckli.ch/delphi/delphi.html#FileToClipboard

see one of my PAQs: https://www.experts-exchange.com/questions/23022892/Quick-Launch-Bar-inside-Delphi-App.html

ziolko

Hi ziolko,

Your solution is interesting, but how do I know that THE TListBox receive the drop???

Because if I see, the WMDropfiles is a global procedure.

There could be several objects that could receive file drops.

procedure TForm1.WMDropfiles(var Msg: TWMDropFiles);
var Amount: Integer;
    filename: array[0..MAX_PATH] of Char;
    cnt: Integer;
begin
  inherited;
  try
    Amount := DragQueryFile(Msg.Drop, $FFFFFFFF, FileName, MAX_PATH);
    for cnt := 0 to Amount - 1 do
    begin
      DragQueryFile(Msg.Drop, cnt, FileName, MAX_PATH);
      Memo1.Lines.Add(FileName);
    end;
  finally
    DragFinish(Msg.Drop);
  end;
end;

give me a minute or two:)

ziolko.