Скачать: CL | DM;

Как установить 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.004 c