Drag & Drop: DragCursor mit Bitmap statt Standard-Cursor

[quendolineDD]

Vielleicht nicht ganz seine Frage.

Delphi-Quellcode:

var
  hCurs : THandle;
  bmp : TBitmap;
begin
  bmp := TBitmap.Create;
  bmp.LoadFromFile(PICTURE_FILE_NAME);
  hCurs := LoadImage(0, //Handle to Application - NULL when using stand-alone
                     PChar(PICTURE_FILE_NAME), //0-terminated String
                     IMAGE_BITMAP, //type
                     bmp.Width, //size of bmp
                     bmp.Height, //size of bmp
                     LR_LOADFROMFILE); //flag
  SetCursor(hCurs);
  bmp.Free;
end;

Dabei solltest du das Icon dessen welches du gerade Drag&Drops't als bmp zwischenspeichern - im Arbeitsspeicher oder kurz als Datei obwohl 1.-eres besser ist.
Schau dir dazu noch folgende Funktion aus der MSDN an. Da gibts auch andere Parameter, falls du es als Icon speicherst.

Code ist nicht getestet!