这是一个Firemonkey组件，但我发现大部分组件基础都相同于VCL和FMX，所以如果您知道如何在VCL中实现，请分享您的知识，这可能是我的解决方案。
我使用TPopup作为祖先。这对我很方便，因为它保留在窗体/框架上，我可以使用相同的上下文/结构将其与LiveBindings连接起来，这对我非常方便。
我需要它像TPopup一样完全表现出容器的行为。但我需要它看起来更好，并且有我的特定按钮（我已经创建了一些属性和自动化程序）。
问题在于，我创建了一些内部控件，例如TLayouts、Tpanels和Tbuttons，使其看起来像这样：(empty)
里面的黑色区域是我想要放置TEdit等控件的地方。
我将所有内部创建的控件设置为Store = false，因此它不会存储在流系统中。这样做时，当我拖放例如TEdit时，我得到的是这样的（我需要顶部对齐的Tedit）：
然而，我期望的是这样的：
如果我将Store = true更改为真，我可以获得正确的效果，但所有内部控件都会暴露在结构面板上，每次保存表单并重新打开时，所有内容都会被复制。内部组件的暴露对我来说不是问题，但复制是个问题，如果我关闭并打开该组件10次，我将获得整个内部结构复制了10次。
我将尝试展示一些与组件设计相关的代码：
类声明：
[ComponentPlatformsAttribute(pidWin32 or pidWin64 or pidOSX32 or pidiOSSimulator or pidiOSDevice or pidAndroid)]
TNaharFMXPopup = class(TPopup, INaharControlAdapter, INaharControl)
private
protected
FpnlMain : TPanel;
FlytToolBar : TLayout;
FbtnClose : TButton;
FbtnSave : TButton;
FbtnEdit : TButton;
FpnlClientArea : TPanel;
FlblTitle : TLabel;
procedure Loaded; override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
constructor Create:
constructor TNaharFMXPopup.Create(AOwner: TComponent);
begin
inherited;
FpnlMain := TPanel.Create(Self);
FlblTitle := TLabel.Create(Self);
FlytToolBar := TLayout.Create(Self);
FbtnEdit := TButton.Create(Self);
FpnlClientArea := TPanel.Create(Self);
FbtnClose := TButton.Create(FlytToolBar);
FbtnSave := TButton.Create(FlytToolBar);
Height := 382;
Placement := TPlacement.Center;
StyleLookup := 'combopopupstyle';
Width := 300;
ApplyControlsProp;
end;
设置内部控件的属性：
procedure TNaharFMXPopup.ApplyControlsProp;
begin
with FpnlMain do
begin
Parent := Self;
Align := TAlignLayout.Client;
StyleLookup := 'grouppanel';
TabOrder := 0;
Margins.Bottom := 10;
Margins.Left := 10;
Margins.Right := 10;
Margins.Top := 10;
Stored := false;
end;
with FlblTitle do
begin
Parent := FpnlMain;
Text := 'Título';
Align := TAlignLayout.Top;
Height := 36;
StyleLookup := 'flyouttitlelabel';
Stored := false;
end;
with FpnlClientArea do
begin
Parent := FpnlMain;
Align := TAlignLayout.Client;
StyleLookup := 'gridpanel';
TabOrder := 0;
Margins.Bottom := 5;
Margins.Left := 5;
Margins.Right := 5;
Margins.Top := 5;
Stored := false;
end;
with FlytToolBar do
begin
Parent := FpnlMain;
Align := TAlignLayout.Bottom;
Height := 50;
Stored := false;
end;
with FbtnClose do
begin
Parent := FlytToolBar;
Text := 'Fecha';
Align := TAlignLayout.Left;
Height := 50;
StyleLookup := 'tilebutton';
TabOrder := 0;
Width := 70;
ModalResult := mrClose;
Stored := false;
end;
with FbtnEdit do
begin
Parent := FlytToolBar;
Text := '';//'Edita';
Align := TAlignLayout.Left;
Height := 50;
StyleLookup := 'tilebutton';
TabOrder := 1;
Width := 70;
ModalResult := mrContinue;
Stored := false;
Enabled := false;
end;
with FbtnSave do
begin
Parent := FlytToolBar;
Text := 'Salva';
Align := TAlignLayout.Left;
Height := 50;
StyleLookup := 'tilebutton';
TabOrder := 2;
Width := 70;
ModalResult := mrOk;
Stored := false;
end;
end;
已加载：
procedure TNaharFMXPopup.Loaded;
begin
inherited;
ApplyControlsProp;
SetEvents;
end;
我尝试了以下通知方法，尝试使插入的控件成为我的内部“客户区”的父级。
procedure TNaharFMXPopup.Notification(AComponent: TComponent; Operation: TOperation);
begin
inherited;
if (Operation = opInsert) and (csDesigning in ComponentState) then
begin
if AComponent.Owner = self then
if AComponent is TFmxObject then
begin
(AComponent as TFmxObject).Parent := FpnlClientArea;
end;
end;
end;
但这并没有改变任何事情。
我以前问过类似的问题，但我对创建此类组件所需的许多东西不太了解，而且回答并没有给出太多帮助，我缺少每个内部组件的父级。
现在我正在尝试真正展示我的需求：我需要将控件放置在我的TPopup对话框上，这些控件将成为其内部ClientArea的父级。