Problem mit Drag and Drop (ShellListView -> CheckListBox)

DiamondDog · Beiträge: 460

Hallo Leute,
ich hab eine kleines Problem und zwar würde ich gerne aus ShellListView per Drag and Drop Dateien in eine CheckListBox eintragen lassen. Leider funktioniert das ganze nicht wie gewünscht und zwar wenn ich eine oder mehrer Dateien aus ShellListView über die CheckListBox ziehe dann kommt immer ein Verbotszeichen. Wie bzw was muß ich einstellen das die Dateipfade, in der ShellListView hinzugefügt werden wenn ich die Dateien darüber ziehe?

Danke schon mal für eure Hilfe.

Mfg Dog

MaxWurzel · Beiträge: 77 Erhaltene Danke: 10

Guck dir mal das Ereignis OnDragOver von der CheckListBox an.

DiamondDog · Beiträge: 460

MaxWurzel hat folgendes geschrieben :

Guck dir mal das Ereignis OnDragOver von der CheckListBox an.

Es soll ja nicht bei Over funktionieren sondern per Drag and Drop oder ist dies nicht möglich? Oder muss ich bei Dragover noch parameter hinzufügen, die bei Mousup oder so greifen?

MaxWurzel · Beiträge: 77 Erhaltene Danke: 10

Du musst zuerst das 'Drop' auf die CheckListBox erlauben.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.CheckListBox1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  if sender = Name deiner ShellListView then
    Accept := True
  else
    Accept := False;
end;

Wenn Accept auf false steht, wird das Verbotszeichen angezeigt.

DiamondDog · Beiträge: 460

Hab es jetzt mal so versucht:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

 private
    Dragging : boolean;

procedure TForm1.CheckListBox1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
var Button: TMouseButton;
begin
  if sender = CheckListBox1 then
    Accept := True
  else
    Accept := False;
  Dragging := True;
end;

procedure TForm1.CheckListBox1MouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Dragging = True then
  begin
    Dragging := False;
    CheckListBox1.Items.Add('Test');
  end;
end;

Das funktioniert aber nicht so ganz, das MouseUp Event funktioniert nicht wie gewünscht. Wenn aus der ShellListView eine Datei über die CheckListBox ziehe dann passiert garnichts.

MaxWurzel · Beiträge: 77 Erhaltene Danke: 10

Das MouseUp-Event brauchst du nicht. Das erledigt OnDragDrop. Und der Sender beim OnDragOver-Event ist in deinem Falle deine ShellListView. Am Besten liest du dir mal dieses Tutorial durch:
www.delphi-treff.de/...n-delphi/einleitung/

DiamondDog · Beiträge: 460

MaxWurzel hat folgendes geschrieben :

Das MouseUp-Event brauchst du nicht. Das erledigt OnDragDrop. Und der Sender beim OnDragOver-Event ist in deinem Falle deine ShellListView. Am Besten liest du dir mal dieses Tutorial durch:
www.delphi-treff.de/...n-delphi/einleitung/

Ok hab einwenig gelsen, nur eins hab ich nocht nicht ganz rausbekommen und zwar wie bekomme ich dann den Dateipafd in die ListBox?
So hab ich es jetzt:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.CheckListBox1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
var Button: TMouseButton;
begin
  if sender = CheckListBox1 then
    Accept := True
  else
    Accept := False;
end;

procedure TForm1.CheckListBox1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
var PCharFileName: PChar;
begin
  CheckListBox1.Items.Add(PCharFileName);
end;

Nur das mit dem PCharFileName ist wohl nicht ganz richtig. Was muss ich dort einfügen das er den Dateipfad in die Liste einträgt?

MaxWurzel · Beiträge: 77 Erhaltene Danke: 10

Ohne es auszuprobieren:

markieren

Delphi-Quelltext

1:	CheckListBox1.Items.Add(shelllistview1.SelectedFolder.PathName);

DiamondDog · Beiträge: 460

MaxWurzel hat folgendes geschrieben :

Ohne es auszuprobieren:

markieren

Delphi-Quelltext

1:	CheckListBox1.Items.Add(shelllistview1.SelectedFolder.PathName);

Dann wird nur der Datei Name in die Liste geschrieben, ohne den Pfad und es funtkkioniert auch nur bei einer Datei wenn ich mehrer ausgewählt habe, dann schreibt er nicht alle in die Liste.
Edit:
So funktioniert es, aber nur für eine Datei:

markieren

Delphi-Quelltext

1:
2:
3:
4:

  if Assigned(ShellListView1.Selected) then
  begin
   CheckListBox1.Items.Add(ShellListView1.Folders[ ShellListView1.Selected.Index ].PathName);
  end;

Bergmann89 · Verfasst: Do 18.11.10 16:03

Hey,

ich glaube der ShellView hat auch eine Selected Eigenschaft vom Typ TStrings. Die musst du einfach mit ner Schleife durchzählen und die Strings im TStrings in deine ListBox einfügen.

MfG Bergmann.

_________________
Ich weiß nicht viel, lern aber dafür umso schneller^^

DiamondDog · Beiträge: 460

Bergmann89 hat folgendes geschrieben :

Hey,

ich glaube der ShellView hat auch eine Selected Eigenschaft vom Typ TStrings. Die musst du einfach mit ner Schleife durchzählen und die Strings im TStrings in deine ListBox einfügen.

MfG Bergmann.

Leider find ich nicht das was du sagtest, ich hab es so versucht:

markieren

Delphi-Quelltext

1:	for i := 0 to ShellListView1.Items.Count-1 do CheckListBox1.Items.Add(ShellListView1.Items[i].Caption);

Aber so werden nur mehrere leere Einträge in die Liste geschrieben, weil ich die Pfadangabe der selectierten Dateien nicht rausbekomme.

Edit:
Die Lösung heist:

markieren

Delphi-Quelltext

1:	for i := 0 to ShellListView1.Items.Count-1 do CheckListBox1.Items.Add(ShellListView1.Folders[i].PathName);

MaxWurzel · Beiträge: 77 Erhaltene Danke: 10

Benutze deine Schleife und prüfe jedes Element auf Selektion. Bei True kannst du den Filename so wie vorher gepostet einfügen.

markieren

Delphi-Quelltext

1:	CheckListBox1.Items.Add(ShellListView1.Folders[ ShellListView1.Selected.Index ].PathName);

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme