So, hier wie versprochen, n Beispiel für Drop&Drag (aber ungetestet !)
Delphi-Quellcode:
...
private
{ Private declarations }
procedure GetDroppedFileNames(var msg : TWMDropFiles); message WM_DROPFILES;
...
procedure TForm1.GetDroppedFileNames(var msg : TWMDropFiles);
var sFileName : string;
dwFileCount : cardinal;
i : cardinal;
dwReqdLength : cardinal;
begin
dwFileCount := DragQueryFile(msg.Drop,$FFFFFFFF,nil,0);
for i := 0 to dwFileCount - 1 do
begin
dwReqdLength := DragQueryFile(msg.Drop,i,nil,1);
sFileName := StringOfChar(#00,dwReqdLength+1);
DragQueryFile(msg.Drop,i,PChar(sFileName),dwReqdLength+1);
ListBox1.Add(filename);
end;
end;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
...
DragAcceptFiles(self.Handle,true);
...
end;
...
Sollte so funktionieren, wenn nicht, einfach noch mal melden.
Achso die Punkte bitte nicht reinschreiben, sind lücken
