Drag & Drop: DragCursor mit Bitmap statt Standard-Cursor

[Helmi]

Hallo,

ich hab jetzt den Code wie folgt eingebaut:

Delphi-Quellcode:

procedure TSymboleForm.ShellListView_TastenbilderStartDrag(Sender: TObject;
  var DragObject: TDragObject);
var
  Zeile : Integer;
  lpPath: PChar;
  sfi   : SHFILEINFO;

begin
  Zeile   := ShellListView_Tastenbilder.Selected.Index;

  lpPath  := PChar(ShellListView_Tastenbilder.Folders[Zeile].PathName);

  SHGetFileInfo(lpPath, 0, sfi, SizeOf(SHFILEINFO), SHGFI_ICON or SHGFI_SMALLICON);
  SetCursor(sfi.hIcon);
  DestroyIcon(sfi.hIcon);
end;

Nur leider seh ich das Bild nicht als Cursor. Dafür seh ich nur einen Halteverbot-Cursor