火猴将TPanel分配给TPanel不工作XE10.1柏林

Question

我试图在设计器中配置的TPanel上使用赋值，但它不起作用。

var
  LPanel : TPanel;
begin
  LPanel := TPanel.Create(nil);
  LPanel.Assign(Panel1); // Panel1 is a panel made in the form designer
end;

错误消息类似于"TPanel不能分配给TPanel“。(我有德文版的RAD演播室.德语的准确错误信息是"TPanel kann nicht zu TPanel zugewiesen werden“。

我使用表单设计器设计了一个带有其他组件的TPanel。现在，我想将新的TPanel实例添加到TLayout中，它应该与我想要分配的TPanel相同，包括所有子控件。

Answer 1

大多数VCL和FMX组件，包括TPanel，根本不实现Assign()。通常，只有用于组件属性的实用程序类实现Assign()，以便在其属性设置器中使用。

对于您正在尝试的内容，您应该使用一个框架而不是TPanel。您可以在设计时设计一个框架，就像表单或DataModule一样，然后根据需要在运行时创建它的实例。

有关更多细节，请参见Embarcadero的文档：

FireMonkey中的帧

Answer 2

不幸的是，我目前无法访问Delphi来确认。但是，Assigning TPanel似乎被框架故意阻塞了。

尽管如此，您想要实现的目标似乎更适合用TFrame来处理

一旦创建了框架，就应该能够使用以下代码在运行时创建一个新实例。

uses
  ...
  frMyFrame;
...
var
  LNewFrame : TFrame;
begin
  LNewFrame := TMyFrame.Create(nil); //Are you sure you don't want to assign an owner?
  LNewFrame.Parent := Self; //Assuming you want to position the frame directly on the form
                            //Otherwise you could place it on a simple panel.
  //Set attributes for positioning
  //Don't forget resource management (see ownership comment)
  ...
end;