Поменять в Делфи-программе курсор мыши (SetCursor)

Posted by obzor under Delphi

Задача такая: по кнопке нужно изменить курсор, курсор я уже заготовил, проблема его поменять на 10 винде. Я пишу setcursor(cur), и по нажатию на заветную кнопень, менее секунды появляется мой курсор и снова ставит обратно как было, объясните почему он так делает?
вот код как я это реализую

procedure TForm1.Button1Click(Sender: TObject);
Var
  Cur: HICON;
begin
  Cur := LoadCursorFromFile(PWideChar(ExtractFilePath(Application.ExeName) +
    '1.cur'));
  SetCursor(Cur);
end;

Pavia

SetCursor — устанавливает курсор для текущего окна. Текущим окном является кнопка, а не форма. Убираешь мышь с кнопки по падаешь в другое окно которое загружает свой курсор.

PTyTb32

А вот и решение подъехало)

begin
  MyName := ExtractFilePath(Application.ExeName);
  SetSystemCursor(LoadCursorFromFile(PWideChar(MyName + '1.cur')), OCR_NORMAL);
end;

тема на форуме

Случайные статьи

• Выгрузить данные из базы и отдать клиенту файл на скачивание
• Вставка символа Unicode в RichEdit в Delphi 7
• Кто наиболее востребован в gamedev?
• Заменить элементы матрицы, лежащие ниже главной диагонали
• Зажигание светодиодов от кнопки
• Прием изображений
• Изменить в word файле шрифт
• Запретить ввод пробелов в ячейки Excel
• Количество четных чисел в массиве
• Хранение настроек на android