Cursor aus BITMAP-Ressourcenname laden

[turboPASCAL]

Dann so:

Delphi-Quellcode:

// ...
implementation

const
   crMyCursor = 1;
var
   IconInfo : TIconInfo;

procedure TForm1.Button1Click(Sender: TObject) ;
var
   bmpMask : TBitmap;
   bmpColor : TBitmap;
begin
   bmpMask := TBitmap.Create;
   bmpColor := TBitmap.Create;

   //ein Bitmap auf die einfache Art erstellen ;-)
   bmpColor.LoadFromFile('..\TestMapCur.bmp');
   bmpMask.LoadFromFile('..\TestMaskCur.bmp');

   IconInfo.fIcon := False; // kein Icon sondern Cursor
   IconInfo.xHotspot := 5;
   IconInfo.yHotspot := 5;
   IconInfo.hbmMask := bmpMask.Handle;
   IconInfo.hbmColor := bmpColor.Handle;

   Screen.Cursors[crMyCursor] := CreateIconIndirect(iconInfo) ;

   Screen.Cursor := crMyCursor;
   Button1.Cursor := 1;


   bmpMask.Free;
   bmpColor.Free;
end;