Delphi-Help

Главная Статьи Мышка и Курсор Использование анимированных курсоров

Использование анимированных курсоров

Оцените материал
(0 голосов)


Использование анимированных курсоров

Сперва вы должны взять хэндл курсора Windows и присвоить его одному из элементов массива Cursors обьекта Screen.

Предопределенные курсоры имеют отрицательный индекс, а определенные пользователем (вами) курсоры получают положительные индексы.

Ниже пример формы, использующей анимированный курсор:

procedure TForm1.Button1Click(Sender: TObject);
var h: THandle;
begin
 h:= LoadImage(0, 'C:\TheWall\Magic.ani', IMAGE_CURSOR, 0, 0, LR_DEFAULTSIZE  or LR_LOADFROMFILE);
 if h = 0 then ShowMessage('Cursor not loaded')
 else begin
  Screen.Cursors[1] := h;
  Form1.Cursor := 1;
 end;
end;
Прочитано 3948 раз
Другие материалы в этой категории: Получить и задать координаты мыши »

Авторизация



Счетчики