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

[phphel]

DIgorevich, да именно сторонние курсоры.

const
  crMyCursor = 1;
var
  path:PCHAR;
begin
  path:=PCHAR('cursors\'+sComboBox2.Text);
  Screen.Cursors[crMyCursor] := LoadCursorFromFile(path);
  Cursor := crMyCursor;

вот так

[DIgorevich]

Это в каком месте программы идет присвоение?

[phphel]

В OnCreate, в форме "настроек" я сохраняю значение в .ini а потом в OnCreate вывожу.

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

 iFound := FindFirst(GetCurrentDir+'\cursors\' + '*.*', faAnyFile, F);
 While iFound = 0 Do
  begin
    if (F.Attr and faDirectory) = 0 then
      if MatchesMask(F.Name,'*.ani') or
         MatchesMask(F.Name,'*.cur')
		 then
		 sCombobox2.Items.Add(F.Name);
     iFound := FindNext(F);
  end;
 FindClose(F);

вот так к примеру записывается в Combobox2, а мне нужно в массив.

[DIgorevich]

Значит вместо этого:

sCombobox2.Items.Add(F.Name);

записывай в массив строк введя счетчик нахождений.
А в комбобоксе у тебя названия курсоров без расширения идут?

[phphel]

var
mas_dir: array of string ;
j:integer;
begin
j=0;
 iFound := FindFirst(GetCurrentDir+'\cursors\' + '*.*', faAnyFile, F);
 While iFound = 0 Do
  begin
	j:=j+1;
    if (F.Attr and faDirectory) = 0 then
      if MatchesMask(F.Name,'*.ani') or
         MatchesMask(F.Name,'*.cur')
		 then
     mas_dir[j]:=string(F.Name);
		 sCombobox2.Items.Add(F.Name);
     iFound := FindNext(F);
  end;
 FindClose(F);

ну я пробовал так )) не получается)

насчет курсора, в новой форме, добавил Panel и указал ей курсор, все нормально.
а основной программе почему то не хочет, думаю разберусь, вопрос в другом.

Даже если перебрать все компоненты в OnCreate то курсор все равно не установится на все компоненты.

К примеру MainMenu попросту не имеет такого значения как ".Cursor"

[DIgorevich]

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

[CODE]

ну я пробовал так )) не получается)

j:=0;
А что именно не получается?

[phphel]

DIgorevich, ну на php такой алгоритм бы сработал), а вот с дельфи все никак..
при компиляции ссылается на ошибку в памяти..
насчет panel я разобрался, оказалось была простая невнимательность, так как значение у Panel1.visible стояло FAlse)

[DIgorevich]

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

DIgorevich, ну на php такой алгоритм бы сработал), а вот с дельфи все никак..

Какой именно алгоритм не работает?

[phphel]

DIgorevich, тот что я привел выше..

var
mas_dir: array of string ;
j:integer;
begin
j=0;
j:=j+1;
mas_dir[j]:=string(F.Name);

если убрать все лишнее

[DIgorevich]

Неправильно описана инициализация J, надо j:=0;