| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как установить ani-курсор
lamorg © (2003-10-10 17:31:00)
HEEELP! Как установить в программе ani-курсор?
Nick Denry (2003-10-11 14:15:00) [1]
ПРавда толи в NT , толив в 9x где-то автоматически АНИ не грузит. Там обходить надо
Nick Denry (2003-10-11 14:07:00) [2]
бпя! На апи ведь спрашивает человек.
-------------
var
cur : nCursor;
wc : TWndClassEx;
-------------------
begin
cur:=LoadCursor (hInstance,"CursorName");
wc.hCursor:= cur;
-----------------------
На onDestroy все освободить через function DestroyCursor(Cursor: HCursor): Bool;
Zew (2003-10-11 00:24:00) [3]
Например так
const
crMyCursor = 1;
procedure TForm1.FormCreate(Sender: TObject);
begin
// Загружаем курсор. Единственный способ для этого
Screen.Cursors[crMyCursor] :=
LoadCursorFromFile("c:\mycursor.ani");// Воообщем тут путь к курсору
Cursor := crMyCursor; // Используем курсор на форме
end;
| |
