在运行时创建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;