Форум: "Основная";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];
Вниз
Проблема с курсорами Найти похожие ветки
← →
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, то все нормально.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.07.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c
