Изменение вида курсора

← →
-=zek=- © (2004-02-26 22:03) [0]

Народ помогите пожалуйста как можно заменить обыкновенный курсор на любую картинку.В принципе хочу стелать прицел а для этого надо курсор заменить на gif изображение. Заранее спасибо

← →
Юрий Зотов © (2004-02-26 22:04) [1]

F1 - TScreen.Cursors. Там и пример есть.

← →
-=zek=- © (2004-02-26 22:24) [2]

Не там фигня написана у меня есть пример как вместо курсора вывести иконку или файл курсора а мне нужен gif

← →
VMcL © (2004-02-26 22:49) [3]

>>=zek=- © (26.02.04 22:24) [2]

Мало ли что тебе нужно. Windows понимает *.cur, LoadCursor() и т. п., а на GIF конторы CompuServe ложил дядя Билли с высоты своего пентхауса. Надо курсор в GIF - конвертируй.

← →
ILN (2004-02-26 23:34) [4]

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

Изменение вида курсора Найти похожие ветки