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

[phphel]

Всем привет.
Вот сделал пункт "свой курсор" в программе.
Но появилась проблемка.

1. Курсор меняется только для фона формы, если навести на любой компонент (Button,Panel) то курсор устанавливается по дефолту, собственно вопрос как это лечить?
не хотелось бы для каждого элмента писать Button1.cursor:=nyCursor;

2. Как отобразить курсор в Timage? а именно файлы .ani и .cur

Заранее спасибо.

[Stilet]

Пиши Screen.cursor:=nyCursor;

[phphel]

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

Пиши Screen.cursor:=nyCursor;

Именно так и стоит.Толку от этого не много.

[DIgorevich]

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

Именно так и стоит.Толку от этого не много.

У меня этот код работает на все компоненты приложения (при добавлении его в ОнКреат формы).

[phphel]

DIgorevich, не знаю как у вас, а у меня работает не на все компоненты, к пример Tpanel Button и прочее, на Label работает.

прописывал в OnCreate разницы не увидел.

[Selestis]

Можно перебрать все компоненты:

for i:=0 to Form1.Components.Count-1 do ...

Кажется, как-то так...

[phphel]

Selestis, можно, но как я понял, даже если указать явно курсор в Tpanel то он все равно почему то не меняется

[DIgorevich]

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

Selestis, можно, но как я понял, даже если указать явно курсор в Tpanel то он все равно почему то не меняется

Значит какие-то свойства не те выставлены у панели, либо она создается в режиме Run-time, после изменения курсора.

[phphel]

DIgorevich, подскажите какие свойства нужно выставить?
панель создается сразу, тоесть я её тупо кинул на форму

[DIgorevich]

Вот я создал проект. По созданию:

procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.cursor:=crDrag;
end;

На форме и панель и кнопка (просто брошенные). И курсор на них именно crDrag. Может у тебя вся загвоздка в том, что курсоры ты прописываешь сторонние? Как ты их в программу запихиваешь?