Забанить смену курсора

[Игорь Столяров]

Привет всем !

Очередной "детский" вопрос, на который нет очевидного ответа ...

Есть MDI WINDOW с аттрибутом RESIZE.
Само изменение размера окна запрещено (просто рамка окна красивей в Win10, чем в окне с аттрибутом DOUBLE).
Но при наведении курсора на рамку окна - курсор естесно изменяет внешний вид на стрелки, показывая возможность
изменения размера окна, что в данном случае неверно.

Можно как-то заблокировать изменение внешнего вида курсора при наведении на рамку окна с аттрибутом RESIZE ?
Заранее спасибо ! О том, что хорошо, когда в жизни нет других проблем - я знаю.

[Admin]

На что люди тратят время

[Игорь Столяров]

У меня есть заказчик (ген. директор торговой фирмы) у которого есть любимая фраза:
"Могу разговарить о чём угодно и с кем угодно, если это приводит к росту продаж".
Он это говорит серьёзно. Но иногда ведь хочется сделать какую-нибудь глупость просто так ....

[Ал]

..., а если поставить запрет изменения, а рамки дорисовать по вкусу заказчика ручками по краям или подложить картинку?? - размер то окна не надо менять, т.е. просто "намалевать" что ему надо, а с обработкой курсоров не заморачиваться ...

[kreator]

..., а если поставить запрет изменения, а рамки дорисовать по вкусу заказчика ручками по краям или подложить картинку?? - размер то окна не надо менять, т.е. просто "намалевать" что ему надо, а с обработкой курсоров не заморачиваться ...

Чтобы получилось качественно, придётся свою картинку для каждого окна делать.

[kreator]

Полубредовая идея возникла в моей голове. Есть винапишные функции, связанные с курсором LoadCursor, LoadCursorFromFile, SetSystemCursor, DestroyCursor. В одном проекте я их использую, подменяя стандартные "песочные часы". Примеры:

Код: Выделить всё

   GLO:CursorFile = '..\media\j.ani'
   GLO:CursorHandle = LoadCursorFromFile(GLO:CursorFile)
   if GLO:CursorHandle
     i# = SetSystemCursor(GLO:CursorHandle, OCR_WAIT)
  else
     stop('Ошибка загрузки курсора')
  end
  GLO:CursorFile = clip(GLO:WinDir) & '\Cursors\aero_busy.ani'
  GLO:OldCursorHandle = LoadCursorFromFile(GLO:CursorFile)
  if ~GLO:OldCursorHandle
    stop('Ошибка загрузки курсора')
  end

Код: Выделить всё

  if GLO:CursorHandle and GLO:OldCursorHandle
    i# = SetSystemCursor(GLO:OldCursorHandle, OCR_WAIT)
    i# = DestroyCursor(GLO:CursorHandle)
    i# = DestroyCursor(GLO:OldCursorHandle)
  end
  SetCursor()  

Можно при открытии своего окна подменить курсоры OCR_SIZE... на OCR_NORMAL. При выходе сделать обратную подмену. Я ещё пытался сделать обратную подмену при потере фокуса моим приложением и прямую подмену при получении фокуса, но что-то не до конца разобрался, срабатывало как-то через раз.

[Admin]

Ага и при падении программы будем получать косяки с курсорами.
Примерно как перемещение окна страдает сейчас когда Clarion отключает "Отображение содержимого окна при перетаскивании"

[kreator]

Ага и при падении программы будем получать косяки с курсорами.

Ну это форс-мажор. Чего это программа будет падать?

[Игорь Столяров]

Можно при открытии своего окна подменить курсоры

Упс ! Так ведь есть другие окна, на которые можно переключаться или открывать из окна ...
Я пытаюсь разобраться какое событие возникает при наведении курсора на область рамки окна ...

[Дед Пахом]

Ещё можно попробовать перехватывать сообщение WM_SETCURSOR.

[kreator]

Упс ! Так ведь есть другие окна, на которые можно переключаться или открывать из окна ...

Есть LoseFocus и GainFocus, но идея полубредовая, естественно, впрочем как и задача . Неужто рамка совсем другая в режиме resize?

[Игорь Столяров]

но идея полубредовая,

Просто блажь ... Захотелось "такую же точно, но с перламутровыми пуговицами". Бывает.
Хотя ... Если для окна включен RESIZE и введено ограничение Restrict MIN / MAX Window Size = 0,
то по хорошему смена курсора на краях рамки окна должна убираться шаблоном.
Зачем показывать действие, которое заведомо невозможно выполнить ?
Если поле ENTRY неактивно (disable), то курсор же не меняет форму на ввод данных ...

[Ал]

Можно при открытии своего окна подменить курсоры

Упс ! Так ведь есть другие окна, на которые можно переключаться или открывать из окна ...
Я пытаюсь разобраться какое событие возникает при наведении курсора на область рамки окна ...

... видимо если есть родительское окно, то туда идет ... что на мышь не кнопали..., ну и вид курсора по необходимости меняется...