我尝试在滚动框中嵌入表单:
procedure TfrmMain.FormCreate(Sender: TObject);
var
Control:TControlView;
begin
Control := TControlView.Create(Self);
Control.BorderIcons := [];
Control.parent := ListControls;
Control.width := 800;
ListControls.AddObject(Control);
Control.Visible:= True;
end;
但是,该表单显示在 frmMain 后面且位于表单边界之外。
我的想法是将一个表单放在面板内,并放在滚动框中。每个表单代表一个包含多个控件和内容的复杂项目(不使用 ListBox 的原因?Firemonkey 控件创建比简单地创建一个表单并嵌入它要困难得多)
秘密在于如何设计子表单。
您需要创建一个控件作为容器,例如 TLayout(无样式)、TRectangle(基本样式)或 TPanel。我会选择 TLayout。为您的容器确定一个名称,为了便于讨论,请使用“Container”。现在创建您的子窗体,并将容器的父级分配给您的父对象。
因此,从上面的代码(我假设 TControlView 是您的子窗体):
procedure TfrmMain.FormCreate(Sender: TObject);
var
Control:TControlView;
begin
Control := TControlView.Create(Self);
Control.Container.parent := ListControls;
Control.Container.width := 800;
end;
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)