Ostatnio znalazłem taki kod programu który przerabiał mi bitmapę na kursor
interface
const
crMyCursor = 1;
var
iconInfo : TIconInfo;
implementation
procedure TForm1.Button1Click(Sender: TObject) ;
var
bmpMask : TBitmap;
bmpColor : TBitmap;
begin
bmpMask := TBitmap.Create;
bmpColor := TBitmap.Create;
bmpMask.LoadFromFile('CircleMask.bmp') ;
bmpColor.LoadFromFile('Circle.bmp') ;
with iconInfo do
begin
fIcon := false;
xHotspot := 15;
yHotspot := 15;
hbmMask := bmpMask.Handle;
hbmColor := bmpColor.Handle;
end;
Screen.Cursors[crMyCursor] := CreateIconIndirect(iconInfo) ;
Screen.Cursor := crMyCursor;
bmpMask.Free;
bmpColor.Free;
end;
procedure TForm1.FormDestroy(Sender: TObject) ;
begin
DestroyIcon(Screen.Cursors[crMyCursor]) ;
end;
Kod ten działa w obrębie formy, a czy da się go przerobić tak aby działał również poza nią na całym pulpicie i innych oknach??