Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.071 Beiträge
Delphi 12 Athens
|
Re: Drag Drop nonvcl
18. Nov 2008, 04:54
DragAcceptFiles DragQueryFile DragFinish
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.
|
|
Zitat
|