Проблема с курсорами

← →
Dmk © (2003-07-09 02:56) [0]

Таким образом я загружаю курсоры

Screen.Cursors[crMyHand] := LoadCursor(HInstance, "SHOPHAND");
Screen.Cursors[crRasterRect] := LoadCursor(HInstance, "RASTERRECT");

Но потом, в классе наследнике от TForm
пытаюсь установить Self.Cursor := crMyHand;
Ничего не получается.
Если сделать так: Screen.Cursor := crMyHand; , то
все работает нормально.
Почему так происходит? :(

Загрузка курсоров происходит в OnFormCreate,
Попытка установить - в событии OnMouseDown.

Так тоже не помогает: Self.Cursor := Screen.Cursors[crMyHand];
Воспринимаются только системные курсоры.
А вот в любой другой процедуре, кроме OnMouseDown,
все работает отлично.

← →
Dmk © (2003-07-09 03:33) [1]

Кстати! Если сделать свой обработчик сообщения,
но без Inherited, то все нормально.

Проблема с курсорами Найти похожие ветки