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]