Вопросы миграции приложения с Delphi 10 на 12.3: изменения в поведении компонентов

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

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

Основные изменения при миграции

1. Изменения в диалоговых окнах сообщений

Один из заметных изменений - поведение MessageDlg и связанных функций. В Delphi 10 диалог подтверждения (mtConfirmation) показывал иконку информации, но в Delphi 12.3 это поведение изменилось.

// Пример вызова диалога в Delphi
if MessageDlg('Вы уверены?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
  // Действие при подтверждении
end;

Решение: Если вам критично отображать иконки, можно использовать кастомные диалоги или явно устанавливать иконку:

// Альтернативное решение с явным указанием иконки
procedure ShowCustomConfirmation(const AMessage: string);
var
  Dlg: TForm;
begin
  Dlg := CreateMessageDialog(AMessage, mtConfirmation, [mbYes, mbNo]);
  Dlg.Caption := 'Подтверждение';
  // Установка своей иконки
  // Dlg.Icon.LoadFromFile('confirmation.ico');
  Dlg.ShowModal;
  Dlg.Free;
end;

2. Изменения в порядке создания форм (OldCreateOrder)

Важное изменение касается свойства OldCreateOrder, которое было удалено в Delphi 12.3. Ранее в Delphi 10 это свойство по умолчанию было False для новых форм, но при открытии проекта в Delphi 12.3 и последующем сохранении в старых версиях значение могло сброситься на True.

Проблема: Разный порядок вызова событий OnCreate и конструктора формы.

Решение:
1. Проверьте все формы в проекте на зависимость от порядка создания
2. Убедитесь, что критичный код не зависит от OldCreateOrder
3. При необходимости явно управляйте порядком инициализации

Пример безопасной инициализации:

type
  TMyForm = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    FInitialized: Boolean;
    procedure InitializeComponents;
  end;

procedure TMyForm.FormCreate(Sender: TObject);
begin
  if not FInitialized then
    InitializeComponents;
end;

procedure TMyForm.InitializeComponents;
begin
  FInitialized := True;
  // Инициализация компонентов здесь
end;

3. Изменение типа Count в коллекциях

В Delphi 12.3 тип Count для TStringList, TList, TObjectList и других коллекций был изменен с Integer на NativeInt.

Проблема: Несовместимость при передаче значений между модулями, скомпилированными в разных версиях.

Решение:
1. Проверить все места, где используется Count в циклах и сравнениях
2. Обновить объявления переменных с Integer на NativeInt там, где это необходимо

// Старый код
var
  i: Integer;
begin
  for i := 0 to StringList.Count - 1 do
    // ...

// Новый код
var
  i: NativeInt; // или просто использовать var в цикле
begin
  for i := 0 to StringList.Count - 1 do
    // ...

4. Поддержка масштабирования для каждого дисплея

Delphi 12.3 добавила поддержку масштабирования для каждого дисплея в Windows, что может повлиять на внешний вид приложения.

Рекомендации:
1. Протестируйте приложение на системах с несколькими мониторами
2. Проверьте расположение и размеры всех форм и элементов управления
3. Рассмотрите использование TScreen.Monitors для управления размещением окон

// Пример работы с несколькими мониторами
procedure TMainForm.PositionOnSecondMonitor;
begin
  if Screen.MonitorCount > 1 then
  begin
    Left := Screen.Monitors[1].Left + 100;
    Top := Screen.Monitors[1].Top + 100;
  end;
end;

Дополнительные рекомендации по миграции

1. Тестирование на реальных данных: Проверьте все критические функции приложения с реальными данными.

2. Постепенная миграция: Если возможно, внедряйте изменения постепенно, сохраняя возможность отката.

3. Использование условной компиляции: Для поддержки кода в разных версиях Delphi можно использовать директивы:

   {$IFDEF VER340} // Delphi 12.3
     // Код для Delphi 12.3
   {$ELSE}
     // Код для более старых версий
   {$ENDIF}
   

4. Обновление сторонних компонентов: Убедитесь, что все используемые сторонние компоненты совместимы с Delphi 12.3.

5. Проверка API вызовов: Некоторые API Windows могли измениться или стать устаревшими.

Заключение

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

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

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

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

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

:: Главная :: Приложение своё ::