Устранение проблемы пустого экрана при отображении формы в панели Delphi

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

Устранение проблемы пустого экрана при отображении формы в панели в Delphi

При разработке приложений на Delphi может возникнуть необходимость отобразить одну форму внутри другой, например, в панели. Однако иногда при этом может появиться проблема с пустым экраном, и пользователь не видит элементы, добавленные во вторую форму. В этой статье мы рассмотрим, как решить эту проблему и отобразить форму в панели без пустого экрана.

Проблема

При попытке отобразить вторую форму в панели основной формы пользователь может столкнуться с пустым экраном и не увидеть элементы, добавленные во вторую форму. Например, в коде ниже приведены основная форма (Unit1) и вторая форма (Unit2), которые не отображают кнопки, добавленные во вторую форму:

Unit1

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, Unit2;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure EmbedForm(ArgParent: TControl; ArgForm: TCustomForm);
  private
  public
  end;

var
  Form1: TForm1;
  Form2: TForm2;

implementation

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
  EmbedForm(Panel1, Form2);
end;

procedure TForm1.EmbedForm(ArgParent: TControl; ArgForm: TCustomForm);
begin
  //while ArgForm.ChildrenCount > 0 do
  //begin
  //  ArgForm.Children[0].Parent := ArgParent;
  //end;
  ArgForm.Parent := ArgParent;
end;

end.

Unit2

unit Unit2;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
  private
  public
  end;

var
  Form2: TForm2;

implementation

{$R *.fmx}

end.

Причина проблемы

Проблема пустого экрана может возникнуть из-за неправильного кода в методе EmbedForm. В исходном коде комментарий был добавлен к строке, перемещающей детей формы во вторую форму. Однако, когда пользователь пытается отобразить вторую форму в панели, он изменяет код, удаляя комментарий и добавляя строку ArgForm.Parent := ArgParent;. Это неверный подход, так как он не перемещает детей формы во вторую форму.

Решение проблемы

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

Unit1

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, Unit2;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure EmbedForm(ArgParent: TControl; ArgForm: TCustomForm);
  private
  public
  end;

var
  Form1: TForm1;
  Form2: TForm2;

implementation

{$R *.fmx}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form2 := TForm2.Create(Self);
  EmbedForm(Panel1, Form2);
end;

procedure TForm1.EmbedForm(ArgParent: TControl; ArgForm: TCustomForm);
begin
  while ArgForm.ChildrenCount > 0 do
  begin
    ArgForm.Children[0].Parent := ArgParent;
  end;
end;

end.

В методе EmbedForm мы перемещаем детей формы во вторую форму с помощью цикла while, перебирающего всех детей формы и устанавливающего их родителем панель (ArgParent). После правильного перемещения детей форма отображается в панели без пустого экрана.

Вывод

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

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

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

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

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

:: Главная :: TPanel ::