Вместо курсора

[_-Re@l-_]

Как можно в приложении вместо курсора поставить что-нибудь другое(мне, например, нужен прицел)?

[artemavd]

Нажмите на форму и посмотрите в сторону свойства Cursor...

[_-Re@l-_]

Ясно, нашёл. А можно ли на место курсора загрузить своё.... изображение?

[artemavd]

Можно. Точно знаю, что можно, но, подсказать не могу сейчас как именно, т.к. я на работе, а тут нет Delphi. Но кажется, чтто обычно в папку с прогой кидают файл с изображением курсора, а потом в проге код его загрузки пишут.

[x128]

как-то так:

procedure MyCursor;
var
  cur: TBitmap;
  IconInfo: TIconInfo;
begin
  cur:=TBitmap.Create;
  cur.LoadFromFile('c:\NotePad.bmp');

  IconInfo.fIcon:=true;
  IconInfo.xHotspot:=cur.Width div 2;
  IconInfo.yHotspot:=cur.Height div 2;
  IconInfo.hbmMask:=cur.Handle;
  IconInfo.hbmColor:=cur.Handle;

  Screen.Cursors[1]:=CreateIconIndirect(IconInfo) ;
  Screen.Cursor:=1;

  cur.Destroy;
end;

bmp с альфа каналом (32 бит)

[_-Re@l-_]

Ясно. Всем спасибо. Код работает