Оптимизация реакции формы на перемещение мыши: альтернативные ограничения в Delphi и Pascal

Delphi , ОС и Железо , Windows

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

Проблема

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

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

Решение

Для изменения ограничений реакции формы на перемещение мыши можно использовать следующий код, который изначально настроен на реакцию вблизи крайних точек формы:

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
  // ... (инициализация и настройка базового поведения)
  if BorderStyle = bsNone then begin
    // ... (логика определения границ и реакции на перемещение мыши)
  end;
end;

Чтобы изменить ограничения, необходимо использовать функцию InflateRect, которая позволит изменить размеры проверяемого прямоугольника, "отодвинув" его от краев формы:

procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
var
  OuterRect: TRect;
begin
  // ... (инициализация и настройка базового поведения)
  if BorderStyle = bsNone then begin
    OuterRect := BoundsRect; // определяем внешний прямоугольник
    InflateRect(OuterRect, -10, -3); // изменяем размеры, отодвигая от краев
    if not PtInRect(OuterRect, SmallPointToPoint(Message.Pos)) then // проверяем, находится ли точка за пределами
      Message.Result := HTTRANSPARENT; // если да, то форма не реагирует на перемещение
    // ... (остальная логика)
  end;
end;

Альтернативное решение

В качестве альтернативного подхода можно определить две константы для горизонтального и вертикального смещения, что позволит более точно настроить поведение формы:

const
  HORIZONTAL_OFFSET: Integer = 10;
  VERTICAL_OFFSET: Integer = 3;

И затем использовать эти константы в логике определения границ формы:

// ... (внутри if BorderStyle = bsNone)
if (Top < VERTICAL_OFFSET) and (Left < HORIZONTAL_OFFSET) then
  Result := HTTOPLEFT
// ... (аналогично для остальных условий)

Заключение

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

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

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

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

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

:: Главная :: Windows ::