Drag-and-Drop auf Frame-Komponente realisieren

[Freyr77]

Hi.

Ich brauche in einem meiner Frames eine Drag-And-Drop Lösung, die mir ausschließlich den Pfad der "gedropten" Anwendung ausspuckt, damit ich diese anschließend im Grid verarbeiten lassen kann.

Leider funktioniert das einfach nicht. Auf einer normalen "Form" klappt das wunderbar, auf dem Frame wird mir immer das Verbotszeichen angezeigt wenn ich den Drop versuche.

Der Code der auf der Form funktioniert hat steht jetzt im Frame:

Delphi-Quellcode:

constructor TFrame1.Create(AOwner: TComponent);
begin
  inherited;
    DragAcceptFiles(Handle,True);
end;

procedure TFrame1.WMDROPFILES(var msg: TWMDropFiles);
const
  MAXFILENAME = 255;
var
  cnt, fileCount : integer;
  fileName : array [0..MAXFILENAME] of char;
begin
  // how many files dropped?
  fileCount := DragQueryFile(msg.Drop, $FFFFFFFF, fileName, MAXFILENAME) ;

  // query for file names
  for cnt := 0 to -1 + fileCount do
  begin
    DragQueryFile(msg.Drop, cnt, fileName, MAXFILENAME) ;

    //do something with the file(s)
    memo1.Lines.Insert(0, fileName) ;
  end;

  //release memory
  DragFinish(msg.Drop) ;
end;

... funktioniert aber nicht.

Jemand eine Ahnung? Google hat mir bisher auch nicht wirklich geholfen.