Проблема с определением версии RichEdit в Delphi 12.1 на Windows 11

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

Вопрос, поднятый пользователем, связан с некорректным определением версии компонента RichEdit в среде разработки Delphi 12.1 на операционной системе Windows 11. Пользователь столкнулся с тем, что, несмотря на ожидание версии 4.1 или более поздней, функция GetRichEditVersion всегда возвращает версию 2.0. Давайте разберемся в данной проблеме и предложим решение.

Контекст проблемы

Функция GetRichEditVersion, представленная пользователем, пытается определить версию RichEdit, анализируя класс окна TRichEdit. Однако, как было отмечено в комментарии, использование функции GetClassName не позволяет корректно определить версию, так как класс окна TRichEdit в Delphi использует подклассированные классы окон, что искажает результат.

Предложенное решение

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

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

В качестве альтернативного решения можно использовать свойство Version компонента TRichEdit, если он поддерживает такое свойство для определения версии RichEdit. Однако, учитывая, что TRichEdit с версии Delphi 11.0 Alexandria использует RichEdit 4.1 (RICHEDIT50W), можно предположить, что стандартное использование компонента не требует дополнительного кода для определения версии.

Пример кода на Object Pascal (Delphi)

function GetRichEditVersion(const RichEditHandle: HWND): string;
var
  ClassName: array[0..255] of Char;
begin
  // Используем RealGetWindowClass для получения оригинального класса окна
  if RealGetWindowClass(RichEditHandle, ClassName, Length(ClassName)) > 0 then
  begin
    if Pos('RICHEDIT50W', ClassName) > 0 then
      Result := 'RichEdit 4.1'
    else if Pos('RichEdit20W', ClassName) > 0 then
      Result := 'RichEdit 3.0'
    else if Pos('RichEdit', ClassName) > 0 then
      Result := 'RichEdit 2.0'
    else
      Result := 'RichEdit 1.0 или старше';
  end
  else
    Result := 'Не удалось определить версию RichEdit';
end;

Заключение

Для корректного определения версии RichEdit в Delphi 12.1 на Windows 11 рекомендуется использовать функцию RealGetWindowClass вместо GetClassName. Это позволит избежать проблем, связанных с подклассированными окнами, и получить точную информацию о версии компонента. Если вы используете стандартный компонент TRichEdit, предоставляемый VCL, то дополнительные действия для определения версии, скорее всего, не потребуются.

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

Проблема состоит в том, что в Delphi 12.1 на Windows 11 некорректно определяется версия компонента RichEdit из-за ошибки в методе определения класса окна.

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

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

:: Главная :: Главные формы ::