Как заменить курсор на форме

[RAVAL))]

Как соменить стандартный курсор на свой?

[goblinyara]

const
  crMyCursor = 1;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Загружаем курсор. Единственный способ для этого
  Screen.Cursors[crMyCursor] :=
    LoadCursorFromFile('c:\mystuff\mycursor.ani');

  // Используем курсор на форме
  Cursor := crMyCursor;
end;

[RAVAL))]

а как поместить курсор на позицию b

[QunneD]

SetCursorPos(X, Y);

[RAVAL))]

а если мне нужно на позицию Shape

[QunneD]

Узнаеш позицию Shape и ставишь туда курсор.

[DomiNick]

Благодарю... А я-то долго сокрушался, что в Делфи нельзя свои курсоры использовать, как в Бэйсике...))

А можно как-нибудь "встроить" свой курсор в проэкт?.. Чтоб не нужно было бы указывать путь к картинке... Чтоб он в самом exe-файле сидел...
А то удалил или переименовал курсор - и всё в пустую...

[DomiNick]

И уж заодно спрошу:

Можно ли изменять размер курсора? То есть какого бы ни было размера изображение (например 48х48), получается курсор 32х32...(

[QunneD]

Запихни курсор в ресурсы, а потом загружай...

[DomiNick]

Ну... Я студент... Я не умею...((

В институте какая-то реформа учебных программ была... И у нас программа урезанная получилась... Преподаватель всё сетовал, что до "дескрипторов" не успели дойти... Я теперь уж сам пытаюсь их изучить...