Как использовать анимированный курсор в программе? [D3, Win95/98]
AndreFJ © (2002-08-26 14:39:00)
Прошу подсказать, каким образом добавить в файл ресурсов
анимированный курсор (с расширением ani) и как его потом
использовать в программе.
MBo (2002-08-26 14:44:00) [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;
Наверх 
ЧАТ |
Орешник |
|
