Windows drag&drop von Dateien

[hboy]

So sieht das aus. Will ich auch auf meiner Form. Gibts da irgend eine Container Compo oder läuft das über Messages

keine Ahnung. Weis das jemand ?

[hboy]

Also ich denke es läuft über Messages. Kennt jemand die Konstanten ?

[SirThornberry]

folgendes sollte selbsterklärend sein

Delphi-Quellcode:

   procedure WMDROPFILES (var Msg: TMessage); message WM_DROPFILES;
   [...]
procedure TForm1.WMDROPFILES (var Msg: TMessage);
var i, anzahl, size: integer;
    Dateiname: PChar;
    antwort: Integer;
begin
  inherited;
  Dateiname := '';
  anzahl := DragQueryFile(Msg.WParam, $FFFFFFFF, Dateiname, 255);
  for i := 0 to (anzahl - 1) do
  begin
    size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
    Dateiname:= StrAlloc(size);
    DragQueryFile(Msg.WParam,i , Dateiname, size);
    //hier dein source - in "Dateiname" ist der name des droped objectes

    StrDispose(Dateiname);
  end;
  DragFinish(Msg.WParam);
end;
[...]
DragAcceptFiles(Form1.Handle, true);

[Christian Seehase]

Moin Zusammen,

bliebe vielleicht noch anzumerken, dass die Registrierung mit DragAcceptFiles im Create Event des Formulares ganz gut untergebracht ist.

[hboy]

tnx erst ma. Irgendwie mach ich was falsch oder es funktioniert nicht. jedenfalls kommt keine Message an.

[Christian Seehase]

Moin HBoy,

such' hier doch mal nach WM_DROPFILES da müsstest Du eigentlich auch vollständigere Beispiele finden können.

[hboy]

Aha. ok. schon besser. bzw: ES TUT! TNX

[F.W.]

Bei mir geht's zwar, aber wie kann ich sagen, dass DragDrop nur auf einem Panel möglich ist? Wenn ich als Handle Panel1.Handle angebe, geht das zwar von den Drag&Drop Symbolen her, aber es wird dann nicht das ausgeführt, was an der oben im Quelltext beschriebenen Stelle steht.?

[SirThornberry]

dann musst du die message auch im Panel abfangen und nicht im form da die message ja an das panelhandle geht und nicht an das formhandle. Also einfach TPanel noch bissl erweitern

[F.W.]

Ok!