delphi - 在运行时创建 Tframe :

Question

是否可以创建运行时框架并添加现有面板，例如将面板的父级设置为框架？添加后，复制框架并使用它？

喜欢:

f:= Tframe. create(..)
...

panel3.parent = f; //where panel3 has many controls.

然后复制 f?有可能吗？如何？或任何其他建议？

Answer 1

我认为你不会通过重复来解决这个问题。您需要的是这样的函数:

function CreateFrameAndHostPanel(Owner: TComponent; Parent: TWinControl; Panel: TPanel): TFrame;
begin
  Result := TFrame.Create(Owner);
  Try
    Result.Parent := Parent;
    Panel.Parent := Result;
  Except
    FreeAndNil(Result);
    raise;  
  End;
end;