Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.071 Beiträge
 
Delphi 12 Athens
 
#2

Re: Drag Drop nonvcl

  Alt 18. Nov 2008, 04:54
MSDN-Library durchsuchenDragAcceptFiles MSDN-Library durchsuchenDragQueryFile MSDN-Library durchsuchenDragFinish

in etwa so
Delphi-Quellcode:
// nachdem das Control (Fenster, Edit oder was auch immer) erstellt wurde
DragAcceptFiles(HandleOfControl, True);


// bei WM_DROPFILES
Var S: String;
  i, i2: Integer;
Begin
  i2 := DragQueryFile(Msg.WParam, LongWord(-1), nil, 0);
  For i := 0 to i2 - 1 do Begin
    SetLength(S, DragQueryFile(Msg.WParam, i, nil, 0));
    DragQueryFile(Msg.WParam, i, @S[1], Length(S) + 1);
    {S = FileName}
  End;
  DragFinish(Msg.WParam);
  Msg.Result := 0;
End;
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat