Drag n Drop - TShellListView --> TPanel

[joe09]

Hallo.

Ich möchte gern mehrere Items einer TShellListView per Drag auf ein TPanel ziehen. Sobald ich über dem Panel bin, und die Maus los lasse, möchte ich die Daten der Items auslesen und zb. durch Labels auf dem Panel darstellen.

Was habe ich bis jetzt versucht:

Habe als erstes den DragMode von Panel und ShellListView auf dmAutomatic gestellt.

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;

Meine Fragen:

• Warum verändert sich der Mauszeiger nicht, wenn ich über das Panel fahre? Muss ich das selbst ändern?
• Was muss ich sonnst noch machen, damit die Items akzeptiert werden?

Ich habe mich zwar schon im Forum nach ähnlichen Posts umgeschaut, aber nichts passendes gefunden. Also wäre schön wenn ihr mir helfen könntet.

Thx Joe09

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[Basic-Master]

bei mir funktioniert alles nur wenn ich dragmode von dem tshellistview auf dmmanual stelle dann bleibts bei mir auch gleich. guck noch mal ob du das wirklich umgestellt hast

[joe09]

Ja hab ich. Kennt einer ein Tutorial über Drag n Drop? Hab zwar im Forum schon einen Link gefunden, der hat mir aber nicht weiter geholfen.

Gruß Joe09

[joe09]

Hallo.

Könnte es an der Lage der Komponeten liegen?

Hier meine Struktur:

Code:

Panel 1
 I
 I--TabControl
 I      I
 I      I--TabSheet
 I      I     I
 I     ...    I--GroupBox 1--ListView
 I            I
 I            I--Panel 2--Label 1
 I
 I--GroupBox 2--ScrollBox--Panel 3--Label 2

Wenn ich jetzt einen Eintrag aus der ListView auf das Label 1 ziehe funktioniert alles. Wenn ich jedoch den Eintrag auf Label 2 ziehe passiert nichts.

Die Einstellungen beider Label sind aber gleich.

Woran könnte dies liegen?

Gruß Joe09

[joe09]

Moin.

OK, es hat sich erledugt, ich hatte übersehen, dass die GroupBox2 disable war .

Gruß Joe09