Проблемы и решения позиционирования всплывающих подсказок в ListView для Delphi 10.3 Rio на Windows 7 x64

Delphi , Компоненты и Классы , Списки

При разработке приложений на языке Delphi, особенно при работе с визуальными компонентами, такими как TListView, разработчики могут столкнуться с задачей точного позиционирования всплывающих подсказок. Вопрос позиционирования всплывающих подсказок (balloon hints), которые информируют пользователя о недопустимых символах в названиях файлов, является актуальным и требует внимательного подхода.

Проблема заключается в следующем: необходимо обеспечить корректное позиционирование подсказки таким образом, чтобы она была расположена рядом с соответствующим элементом списка и показывала полный текст подсказки на экране в любом положении элемента списка, даже если он находится рядом с краем экрана или частично за его пределами. Всплывающая подсказка Windows Explorer, например, всегда отображается полностью, даже если элемент списка находится вблизи края экрана, и хвост подсказки (tail) всегда располагается в середине нижней части элемента списка. Сам пузырь обычно находится в нижнем правом углу хвоста, но может быть и выше, или слева, если элемент списка находится близко к нижнему и/или правому краям экрана.

Разработчик, столкнувшийся с этой проблемой, использовал процедуру ListEdited, которая вызывается при редактировании элемента списка. В этой процедуре создавалась подсказка, если в имени файла обнаруживались недопустимые символы. Однако, несмотря на попытки использовать различные перегрузки метода ShowHint, а также компонент TBalloonHint из пакета JEDI, разработчику не удавалось добиться стабильного положения всплывающей подсказки рядом с элементом списка.

Решение проблемы кроется в правильном преобразовании координат. Метод DisplayRect возвращает клиентские координаты, относящиеся к TListView, содержащему элемент, а не к форме. Следовательно, при преобразовании в экранные координаты, необходимо использовать TListView в качестве базовой точки, а не форму.

Вот пример кода, который демонстрирует правильное позиционирование всплывающей подсказки:

procedure TForm1.ListEdited(Sender: TObject; Item: TListItem; var S: string);
var
  AHint: string;
  R: TRect;
  B: TBalloonHint;
begin
  if TRegEx.IsMatch(S, '[\\/:*?"<>|]') then
  begin
    AHint := 'A file name cannot contain any of the following' + sLineBreak +
      'characters:  \/:*?"<>|';
    R := Item.DisplayRect(drBounds);
    R.TopLeft := ListView1.ClientToScreen(R.TopLeft); // Исправленная строка
    R.BottomRight := ListView1.ClientToScreen(R.BottomRight); // Исправленная строка
    B := TBalloonHint.Create(Self);
    B.Description := AHint;
    B.HideAfter := 5000;
    B.ShowHint(R);
    S := TRegEx.Replace(S, '[\\/:*?"<>|]', '');
  end;
end;

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

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

Проблема заключается в неправильном позиционировании всплывающих подсказок в `TListView` в Delphi 10.3 Rio на Windows 7 x64, которое можно решить с помощью корректного преобразования координат, используя клиентские координаты `TListView` вместо координат

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

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

:: Главная :: Списки ::