Hi!
Wie kann ich per Drag&Drop Dateien in eine ListBox ziehen, sodass der Pfad mit Dateinamen in der ListBox steht?
Ich habe das hier, am Beispiel Panel, gefunden, allerdings weiß ich nicht, was ich in die Lücke schreiben muss.
Delphi-Quellcode:
procedure TMainWindow.panelDragDrop(Sender, Source: TObject; X,
Y: Integer);
begin
if (Source is TShellListView) then
begin
//Daten auslesen und darstellen
end;
end;
procedure TMainWindow.panelDragOver(Sender, Source: TObject; X,
Y: Integer; State: TDragState; var Accept: Boolean);
begin
Accept := (Source is TShellListView);
end;