Parent.OwnerForm must be same as Self.OwnerForm

[RobYost]

The code below only gives me an error if I have more than one session that uses the same frame fraTenantDetails.

 

Do I have something declared that is used in multiple sessions?  If so, where would I look?

 

 

 

        if (fraTenantDetails = nil) then
          fraTenantDetails := TfraTenantDetails.Create(self);

        fraTenantDetails.Align := alClient;
        fraTenantDetails.Parent := tsTenant; <===This line fails

 

tsTenant is a TUniTabSheet

fraTenantDetails is a TUniFrame

 

 

Project  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)'.

 

 

[RobYost]

I still don't know what to do about this.

[Farshad Mohajeri]

What is owner of tsTenant?

What is owner of fraTenantDetails?

 

They both must be owned by same Form or Frame.

[Farshad Mohajeri]

 

If I have more than one session that uses the same frame fraTenantDetails.

 

How can this happen? Each session must have its own instance of fraTenantDetails.

[Farshad Mohajeri]

fraTenantDetails

Where above variable is declared?

[RobYost]

unit fTenantDetails;

interface

uses

...

type
  TfraTenantDetails = class(TUniFrame)
    pgTenantBottom: TUniPageControl;
    tsScheduledCharges: TUniTabSheet;
    UniSimplePanel1: TUniSimplePanel;
    sgRecurringCharges: TUniStringGrid;
    tsLease: TUniTabSheet;
    lblLeaseBegin: TUniLabel;
    dateLeaseBegin: TUniDateTimePicker;
  
  
    edtRoommateName: TUniEdit;
    edtRoommateAddress: TUniMemo;
    edtRoommateOther: TUniMemo;
    tsTenantNotes: TUniTabSheet;

...
    procedure UniFrameCreate(Sender: TObject);
    procedure pgTenantBottomChange(Sender: TObject);
  private
    procedure LoadScheduledCharges();
    function rtnDateRangeDesc(StartDate, EndDate: TDate): string;
  public
    { Public declarations }
  end;

var
  fraTenantDetails: TfraTenantDetails;

implementation

{$R *.dfm}

uses

[RobYost]

What is owner of tsTenant?

What is owner of fraTenantDetails?

 

They both must be owned by same Form or Frame.

tsTenant is a tabsheet on the main form.

 

 

This is created in the main form.

procedure TfrmMain.LoadEntity(aNode: TUniTreeNode);

begin

  ...

        if (fraTenantDetails = nil) then

          fraTenantDetails := TfraTenantDetails.Create(self);

 

        fraTenantDetails.Align := alClient;

        fraTenantDetails.Parent := tsTenant; { TODO 1: core dump }

 

 

 

 

end;

[Farshad Mohajeri]

var
  fraTenantDetails: TfraTenantDetails;

Problem is here. In uniGUI you should never use global variables. Make it a class variable instead of a global var.

[RobYost]

When I moved

   fraTIncome: TfraTIncome;

Public declarations area of (TfraTIncome) I couldn't figure out how to reference it.

 

Do I add this?

.

 

function TfraTIncome: TfraTIncome;
begin
  Result := TfraTIncome(UniMainModule.GetFormInstance(TfraTIncome));
end;

[Farshad Mohajeri]

Simply put it in public area of Form which is creating it. MainForm for instance.

[RobYost]

I had tried that, but I didn't realize I had another frame.  It was the second one that was set globally, even though I had changed the first one.

 

Thanks.