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

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

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