Это компонент Firemonkey, однако я мог видеть, что большая часть базы компонентов одинакова для VCL и FMX, поэтому, пожалуйста, если вы знаете, как сделать это в VCL, поделиться своими знаниями, это может быть в конечном итоге решение для моего случай.
Я использую TPopup в качестве предка. Это удобно для меня, так как оно остается на форме/кадре, и я могу подключить его с помощью LiveBindings, используя тот же контекст/структуру родителя, что очень удобно для меня.
Мне нужно, чтобы он вел себя точно, это TPopup, как контейнер. Но мне нужно, чтобы он выглядел лучше, и у меня были определенные кнопки (я создал некоторые свойства и возможности для своего программного обеспечения внутри него)
Проблема заключается в том, что я создаю некоторые внутренние элементы управления, такие как TLayouts, Tpanels и Tbuttons, чтобы они выглядели следующим образом: (empty)
В этой черной области внутри я хочу сбросить элементы управления, такие как TEdit и другие.
Я установил все внутренние созданные элементы управления Store = false, поэтому он не сохраняется в потоковой системе. Если это сделать, когда я бросаю TEdit, например, я получаю это (Tedit with aligned = top Мне это нужно):
Однако я ожидал этого:
Если я изменяю 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;
Loaded:
procedure TNaharFMXPopup.Loaded;
begin
inherited;
ApplyControlsProp;
SetEvents;
end;
Я попробовал следующее с уведомлением, пытаясь сделать вставленный элемент управления родительским для моей intenal "clientarea"
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 внутри него.