[Genry]

Я не хочу для каждого курсора делать отдельную переменную, проще сделать массив и загружать из него по номеру. но вот я сделал так:

Код:

1 2 3 4 5 6

var   Cursors: array of HCursor; //У меня динамичный массив begin Cursors[0]:=LoadCursorFromFile('NowMouse.cur');//Загружаю курсор Cursors[1]:=LoadCursorFromFile('SelectMouse.cur');//Загружаю курсор end;

Но вылазит ошибка: [Error] UnitMainForm.pas(162): Array type required
Что мне делать?

[The Shadow]

Может SetLength(Cursors, 2)?

[Genry]

Так?

Код:

1 2	Cursors:=LoadCursorFromFile('NowMouse.cur'); SetLength(Cursors, 1)

Напиши пожалуйста в коде.

[The Shadow]

Код:

1 2 3 4 5 6 7

var Cursors: Array of HCursor; begin SetLength(Cursors, 2); Cursors[0]:=LoadCursorFromFile('NowMouse.cur'); Cursors[1]:=LoadCursorFromFile('SelectMouse.cur'); end;

[The Shadow]

Только так по-моему не получится... Лучше так

Код:

1 2 3

Screen.Cursors[50]:=LoadCursorFromFile('NowMouse.cur'); Screen.Cursors[51]:=LoadCursorFromFile('SelectMouse.cur'); Cursor:=50;{51}

[Genry]

Курсоры загружаются в массив?
Еще проблема , я делаю

Код:

1	MainForm.Cursor:=Cursor

или

Код:

1	Mainform.cursor:=50

,
но курсор не меняется.

[The Shadow]

Перед Mainform.cursor:=50 написал Screen.Cursors[50]:=LoadCursorFromFile('NowMouse.cur')?

[Genry]

Код:

1 2 3 4

Screen.Cursors[50]:=LoadCursorFromFile('now.cur'); Screen.Cursors[51]:=LoadCursorFromFile('pen.cur'); Cursor:=50; MainForm.Cursor:=50;

[The Shadow]

У меня работает... Когда подводишь курсор на форму, он меняется. А файлы точно есть?

[Genry]

Да. Но курсор остается обычным...
Я даже на кнопку этот код писал - безрезультатно.

[The Shadow]

Может у тя все форма компонентами закрыта? Панельками например.

[Genry]

Да. Я даже менял курсор на панельке, но также безрезультатно:

Код:

1 2 3 4

Screen.Cursors[50]:=LoadCursorFromFile('new.cur'); Screen.Cursors[51]:=LoadCursorFromFile('pen.cur'); Cursor:=50; LeftPanel.Cursor:=50;

[The Shadow]

Попробуй указать полный путь к курсору