Перейти к содержанию
СофтФорум - всё о компьютерах и не только

новый курсор


Рекомендуемые сообщения

Собственный курсор можешь создать в ImageEditor'e, поставляемом с Delphi (папка Delphi\bin\imagedit.exe). Там же его добавляешь в файл ресурсов (xxx.res). Потом в модуле, в котором будешь добавлять курсор его инклудишь (он должен находиться в папке проекта) при помощи директивы {$R}. После этого его надо проинсталировать, и потом ты можешь обращаться к нему по номеру, как к стандартному.

Пример: в коде, приведенном ниже, подразумевается, что файл ресурсов называется "Cursors.res", курсор в нем назван "crMyCursor". При инсталяции курсору присваивается номер 1.

implementation

{$R Cursors.res} // инклуд файла ресурсов

...

procedure TForm1.FormCreate(Sender: TObject);

begin

  Screen.Cursors[1]:=LoadCursor(HInstance,'crMyCursor'); // инсталлляция

end;

...

procedure TForm1.Button1Click(Sender: TObject);

begin

  form1.Cursor:=1; // Установка пользовательского курсора

end;

Ссылка на комментарий
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...