Форум: "Основная";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
ВнизКак использовать анимированный курсор в программе? Найти похожие ветки
← →
AndreFJ (2002-08-26 14:39) [0]Прошу подсказать, каким образом добавить в файл ресурсов анимированный курсор (с расширением ani) и как его потом использовать в программе.
← →
MBo (2002-08-26 14:44) [1]из Озерова
1)
const crMyCursor = 1;
procedure TForm1.FormCreate(Sender: TObject);
begin
// Загружаем курсор. Единственный способ для этого
Screen.Cursors[crMyCursor] :=
LoadCursorFromFile("c:\mystuff\mycursor.ani");
// Используем курсор на форме
Cursor := crMyCursor;
end;
2)
Из советов Nomadic"a:
Сперва Вы должны взять хэндл курсора 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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.09.05;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.012 c