Сохранение положения невизуальных компонентов в Delphi при перезагрузке формы

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

При разработке форм в среде IDE Delphi, невизуальные компоненты, такие как TMainMenus и TDatamodules, могут свободно размещаться и позиционироваться в проекте. Это положение сохраняется, и при перезагрузке формы они появляются в правильном положении. Однако, поскольку TComponent не имеет свойств Top или Left, возникает вопрос о том, как можно получить "дизайнерское положение" этих компонентов из кода.

Проблема и решение

Компонент TComponent в Delphi не имеет стандартных свойств для сохранения положения, таких как Top или Left, что затрудняет доступ к позиционированию невизуальных компонентов в коде. Тем не менее, разработчики могут использовать свойство DesignInfo для доступа к этим значениям в runtime.

Подход к решению

Свойства Left и Top упакованы в одно целое число типа Longint, называемое FDesignInfo. Это значение можно получить с помощью свойства DesignInfo. Вот пример кода, который позволяет получить текущее положение компонента:

var
  NewPosition: TSmallPoint;
begin
  NewPosition := TSmallPoint(YourComponent.DesignInfo);
  // Теперь вы можете работать с позицией, используя NewPosition.X и NewPosition.Y
end;

Установка положения

Для установки положения невизуального компонента можно переопределить метод ReadState следующим образом:

procedure TMyComponent.ReadState(Reader: TReader);
var
  NewDesignInfo: LongRec;
begin
  inherited ReadState(Reader);
  NewDesignInfo.Hi := Word(-100); // Установить позицию Top в дизайнере вне области просмотра
  NewDesignInfo.Lo := Word(-100); // Установить позицию Left в дизайнере вне области просмотра
  DesignInfo := Longint(NewDesignInfo); // Установить позицию дизайнерского иконки вне области просмотра
end;

Также, для установки позиций компонента можно использовать функцию SetNonVisualPos:

procedure SetNonVisualPos(Form: TCustomForm; Component: TComponent; X, Y: Integer);
begin
  // Здесь код для установки новых значений Left и Top, используя DesignInfo
  Component.DesignInfo := Integer(PointToSmallPoint(Point(X, Y)));
  // Дополнительные действия для обновления позиций связанных окон
end;

Использование этой функции позволяет установить позицию невизуального компонента на координаты (X, Y):

SetNonVisualPos(TCustomForm(Designer.Root), MyComponent, 10, 10);

Заключение

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

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

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

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

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

:: Главная :: Компоненты ::