Показать форму в TScrollBox

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

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  Vor dem anzeigen der Form muss einfach die Parent Eigenschaft gesetzt 
  werden: 

  Before you show the Form you must simply set the parent property of 
  the form: 
}

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   Form2.Parent := ScrollBox1;
   Form2.Show;
 end;

Here's a translation of the text into Russian:

Описание: Это обработчик события для клика кнопки в приложении Delphi. Когда кнопка кликается, оно отображает вторую форму (Form2) внутри скролл-окна (ScrollBox1).

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Parent := ScrollBox1;
  Form2.Show;
end;

Что код делает: Когда кнопка кликается, этот код устанавливает свойство Parent для Form2 в ScrollBox1, что означает, что Form2 будет дочерним контролем ScrollBox1. Затем он вызывает метод Show для Form2, который делает форму видимой.

Предложения по улучшению: 1. Рассмотрите добавление обработки ошибок в случае, если Form2 или ScrollBox1 не инициализированы или равны null. 2. Вы можете также установить свойства Left, Top и Width для Form2, чтобы позиционировать ее внутри скролл-окна. 3. Если вы хотите, чтобы форма всегда была видимой внутри скролл-окна, вы можете использовать свойство Align, чтобы указать, как форма должна быть выравнена с родителем.

Обновленная версия кода:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Assigned(Form2) and Assigned(ScrollBox1) then
  begin
    Form2.Parent := ScrollBox1;
    Form2.Align := alClient; // Выравнивание формы для заполнения скролл-окна
    Form2.Show;
  end;
end;

Замечание: alClient - это константа выравнивания, означающая "выравнивание по клиенту" - в этом случае она будет растягивать форму, чтобы она занимала всю клиентскую область скролл-окна.

В статье описывается, как показать форму в компоненте TScrollBox в Delphi, для чего нужно установить свойство Parent формы на экземпляр компонента TScrollBox.

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

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

:: Главная :: TScrollBox ::