Вопрос и Ответ 31 < Вопросы и Ответы по Delphi < Delphi

Новые книги

Основы программирования на JavaScript

Курс посвящен изучению языка программирования JavaScript.

JavaScript является языком сценариев (скриптов), который применяют в основном для создания на Web-страницах интерактивных элементов. Его можно использовать для построения меню, проверки правильности заполнения форм, смены изображений или для чего-то еще, что можно сделать на Web-странице.

Написание скриптов для Blender 2.49

Расширьте мощность и гибкость Блендера с помощью Питона: высокоуровневого, легкого для изучения скриптового языка

Вопрос и Ответ 31

Версия для печати

Вопросы и Ответы

31. Можно ли нарисовать курсор мыши как обычную картинку?

Специальной функции для рисования курсора мыши нет. Но формат данных курсора и иконки одинаков, поэтому, можно воспользоваться функцией рисования иконки, только загружать надо изображение курсора. Для загрузки изображения курсора необходимо воспользоваться функцией:

function LoadCursor(Instance: THandle; IconName: PChar): HCursor;

формат ее полностью идентичен функции LoadIcon (см. "Вопрос и Ответ 13").

Пример:

Курсор в виде песочных часов выводится в компонент Image1: TImage, который уже размещен на форме.

............

procedure TForm1.FormCreate(Sender: TObject);
VAR Ico: TIcon;
begin

{Создание объекта типа TIcon}
Ico := TIcon.Create;
try

{IDC_WAIT}
{Загрузка в объект TIcon курсора в виде песочных часов}
Ico.Handle := LoadCursor(0, PChar(IDC_WAIT));
{Вывод иконки в компонент Image1}
Image1.Picture.Graphic := Ico;

finally

{Освобождение ресурсов занятых объектом TIcon}
Ico.Free;

end;

............

...предыдущая страница следующая...
оглавление