Frame.Parent

[RobYost]

---------------------------
Debugger Exception Notification
---------------------------
Project -.exe raised exception class EAssertionFailed with message 'TUniSimplePanel.SetParent(): Parent.OwnerForm must be same as Self.OwnerForm (H:\Framework\uniGUI\Source\Core\uniGUIClasses.pas, line 4837)'.
---------------------------
Break   Continue   Help   
---------------------------
 

I reduced it down to this.

 

procedure TfraTIncome.btnNewChargeClick(Sender: TObject);
var
  aFrame: TUniFrame;
  aTempModalForm: TUniForm;
begin
  aTempModalForm := TUniForm.Create(UniApplication);
  aFrame := TUniFrameClass(TUniFrame1).Create(self);
  aFrame.Parent := aTempModalForm ;
end;

[RobYost]

It looks like it has to be a real form.  And The code must be in that form.

 

If I move that code to a different unit it fails.

[Abaksoft]

Hello;

 

Change :    Self   by  aTempModalForm

procedure TfraTIncome.btnNewChargeClick(Sender: TObject);
var
  aFrame: TUniFrame;
  aTempModalForm: TUniForm;
begin
  aTempModalForm := TUniForm.Create(UniApplication);

  aFrame := TUniFrameClass(TUniFrame1).Create(aTempModalForm);
  aFrame.Parent := aTempModalForm ;
end;

 

That works fine