не изменяется курсор

← →
i2e (2013-10-17 10:46) [0]

Перетаскивая объекты, меняю свойство
Cursor := crMultiDrag; Cursor := crDrag;
при нажатии клавиши Ctrl (для копирования группы объектов или их перетаскивания).
Работает нормально и курсор меняется. Но если сначала нажата Ctrl, потом кнопка мыши.
При нажатой мыши курсор по нажатию Ctrl меняться перестаёт.

Причем в отладчике вижу, что ssCtrl отлавливается и значение Cursor меняется.
Где тут засада может быть?

← →
Медвешонок Порошок (2013-10-17 10:52) [1]

не тому объекту поменял свойство

← →
i2e (2013-10-17 11:15) [2]

проверил.
другое свойство формы (взял Color) меняется.

← →
Плохиш © (2013-10-17 12:03) [3]

Навести курсор на форму, а не на элемент лежащий на форме, и удивитьсяъ

← →
i2e (2013-10-17 13:52) [4]

"манипуляции с курсорами компонентов возможны, если собственное свойство Cursor объекта Screen равно crDefault. Если же присвоить ему другое значение, то все компоненты приложения приобретут соответствующий курсор, и изменить его с помощью свойства Cursor компонентов будет невозможно"

сделал Screen.Cursor := crDefault в нужных местах и всё наладилось.
хотя не понимаю, почему это проявилось только при нажатии кнопок мыша.

не изменяется курсор Найти похожие ветки