Форум: "WinAPI";
Текущий архив: 2003.12.04;
Скачать: [xml.tar.bz2];

Вниз

Как установить ani-курсор   Найти похожие ветки 

← →
lamorg   (2003-10-10 17:31) [0]

HEEELP! Как установить в программе ani-курсор?

---

← →
Zew   (2003-10-11 00:24) [1]

Например так
const
crMyCursor = 1;

procedure TForm1.FormCreate(Sender: TObject);
begin
// Загружаем курсор. Единственный способ для этого
Screen.Cursors[crMyCursor] :=
LoadCursorFromFile("c:\mycursor.ani");// Воообщем тут путь к курсору
Cursor := crMyCursor; // Используем курсор на форме
end;

---

← →
Nick Denry   (2003-10-11 14:07) [2]

бпя! На апи ведь спрашивает человек.
-------------
var
cur : nCursor;
wc : TWndClassEx;

-------------------

begin
cur:=LoadCursor (hInstance,"CursorName");
wc.hCursor:= cur;
-----------------------

На onDestroy все освободить через function DestroyCursor(Cursor: HCursor): Bool;

---

← →
Nick Denry   (2003-10-11 14:15) [3]

ПРавда толи в NT , толив в 9x где-то автоматически АНИ не грузит. Там обходить надо

---

Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2003.12.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.006 c