Свой курсор для всех элементов, и отображение курсора в TIMAGE

[phphel]

опечатался просто, в проекте у меня именно
j:=0;

[DIgorevich]

Мы так долго будем... Лучше выкладывай свой проект и то, что там не получается.

[phphel]

Ну я привел отдельный кусок кода, в котором возникает ошибка, и был собственно вопрос как создать массив из файлов а не заполнять ComboBox.

Выкладывать всю программу глупо по многим причинам.

кстати с перебором тоже как то не получается...

    for j:=0 to ComponentCount-1 do
    begin
      Components[j].Name.Cursor:=crMyCursor;
    end;

не хочет работать..

[DIgorevich]

Ну как хочешь. Я же не могу отследить все действия программы по загрузке курсоров и т.д.. Но порядок должен быть такой: по созданию формы, загружаешь курсор и ставишь его основным screen.cursor:=твой курсор. И тогда не надо будет все компоненты перебирать.

[phphel]

DIgorevich, не соглашусь, стоит screen.cursor:=твой курсор. и так.
Однако если не указать явно в такие компоненты как TButton1 TCheckbox и т.д, то ничего работать не будет. можешь сам проверить.

а насчет массива, зачем там нужен весь исходник мне не ясно..

ведь проблема возникает в определенном участке кода.
запусти его у себя и увидишь.

[phphel]

procedure TForm1.Button1Click(Sender: TObject);
var
F : TSearchRec;
iFound : Integer;
begin
 iFound := FindFirst(GetCurrentDir + '\' + '*.*', faAnyFile, F);
 While iFound = 0 Do
  begin
	 Combobox1.Items.Add(F.Name);
     iFound := FindNext(F);
     FindClose(F);
end;
end;

Вот код, который заполняет ComboBox файлами из папки, мне нужно
создать массив и заполнить его этими значениями, а не заполнять ComboBox

[DIgorevich]

Значит так, с одной проблемой разобрался. При загрузке курсора пиши

const
  crMyCursor = 1;
var
  path:PCHAR;
begin
  path:=PCHAR('cursors\'+sComboBox2.Text);
  Screen.Cursors[crMyCursor] := LoadCursorFromFile(path);
  Screen.Cursor := crMyCursor;// у тебя было просто

[phphel]

Так, вобщем с курсором опять просто не внимательность была, из-за большого количества когда не уследил, что одни компоненты перекрывали другие.

Остался вопрос с созданием массива, и отображением .ani и .cur на TImage

[phphel]

Сообщение от DIgorevich

Значит так, с одной проблемой разобрался. При загрузке курсора пиши

const
  crMyCursor = 1;
var
  path:PCHAR;
begin
  path:=PCHAR('cursors\'+sComboBox2.Text);
  Screen.Cursors[crMyCursor] := LoadCursorFromFile(path);
  Screen.Cursor := crMyCursor;// у тебя было просто

да и это тоже кстати, спасибо.

[DIgorevich]

Массив надо объявлять правильно, либо создавать динамический, но тогда сложнее:

mas_dir: array[0..10] of string ;