Улучшение Отображения Часов-Песочных Курсоров во Всякой Части Приложения на Delphi XE-8

Delphi , Программа и Интерфейс , Формы

При разработке приложений на Delphi часто возникает необходимость информировать пользователя о том, что приложение выполняет длительные операции, для чего используется часовой-пёсочный курсор. Однако, бывают ситуации, когда нужно ограничить область действия этого курсора определённой формой или её элементами. В данной статье мы рассмотрим, как можно настроить отображение часового-пёсочного курсора так, чтобы он был виден только в пределах нужной области.

Проблема

Разработчик, использующий Delphi XE-8, столкнулся с проблемой, когда часовой-пёсочный курсор не отображался при наведении на элементы управления на форме, такие как сетки (grid), и менялся только при наведении непосредственно на саму форму. Намерением было показать часовой-пёсочный курсор только для элементов управления на форме, не затрагивая остальные части приложения. Попытки установить курсор для всего экрана не увенчались успехом, так как это приводило к изменению курсора во всём приложении.

Решение

Для решения данной проблемы необходимо использовать механизмы обработки сообщений Windows. В частности, когда курсор находится над TWinControl, операционная система отправляет ему сообщение WM_SETCURSOR, запрашивая установить курсор на экране. VCL по умолчанию обрабатывает это сообщение следующим образом:

1. Если курсор экрана не установлен как crDefault, то используется именно он.
2. В противном случае, если под курсором находится TGraphicControl, являющийся ребёнком TWinControl, и его курсор не является crDefault, то используется курсор этого элемента.
3. Если курсор TWinControl не является crDefault, используется его курсор.
4. В противном случае сообщение передаётся родительскому окну, и цикл повторяется.

Чтобы достичь желаемого результата, нужно установить курсор формы в желаемое значение, а для всех дочерних элементов установить Cursor в crDefault. Если это невозможно, можно переопределить виртуальный метод WndProc класса формы или использовать метод message для обработки WM_SETCURSOR напрямую. Сначала вызывается обработчик по умолчанию, и если результат сообщения FALSE и рабочий поток запущен, то с помощью Win32 API SetCursor устанавливается желаемый курсор, и результат сообщения устанавливается в TRUE.

Пример кода для переопределения WndProc:

protected
  procedure WndProc(var Message: TMessage); override;

procedure TMyForm.WndProc(var Message: TMessage);
begin
  inherited;
  if (Message.Msg = WM_SETCURSOR) and (Message.Result = 0) and (Thread is Running) then
  begin
    Windows.SetCursor(Screen.Cursors[crHourGlass]);
    Message.Result := 1;
  end;
end;

Или с использованием метода message:

private
  procedure WMSetCursor(var Message: TMessage); message WM_SETCURSOR;

procedure TMyForm.WMSetCursor(var Message: TMessage);
begin
  inherited;
  if (Message.Result = 0) and (Thread is Running) then
  begin
    Windows.SetCursor(Screen.Cursors[crHourGlass]);
    Message.Result := 1;
  end;
end;

Таким образом, курсор экрана и свойства Cursor отдельных элементов по-прежнему имеют приоритет, но если курсор остаётся без изменений (то есть все свойства установлены в crDefault), то можно изменить курсор для всей формы без влияния на другие формы.

Заключение

В данной статье было рассмотрено, как настроить отображение часового-пёсочного курсора для ограниченной области приложения, разработанного в среде Delphi XE-8. Используя механизмы обработки сообщений Windows, можно обеспечить отображение часового-пёсочного курсора только в определённой части приложения, что улучшает пользовательский опыт и делает интерфейс более интуитивно понятным.

Этот подход может быть полезен при разработке различных приложений, где важно информировать пользователя о загрузке данных или выполнении длительных операций, не отвлекая при этом от работы с другими частями приложения.

Создано по материалам из источника по ссылке.

Разработчик в Delphi XE-8 столкнулся с задачей ограничения отображения часового-пёсочного курсора только определёнными элементами управления на форме.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Формы ::