[Genry]

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

Код:

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]

Так?

Код:

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

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

[The Shadow]

Код:

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

[The Shadow]

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

Код:

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

[Genry]

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

Код:

MainForm.Cursor:=Cursor

или

Код:

Mainform.cursor:=50

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

[The Shadow]

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

[Genry]

Код:

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

[The Shadow]

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

[Genry]

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

[The Shadow]

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

[Genry]

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

Код:

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

[The Shadow]

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