Текущий архив: 2003.12.04;
Скачать: 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 вся ветка
Текущий архив: 2003.12.04;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.005 c
