function TframeCountry.GetFormEdit: TFormClass;
begin
  Result := TfrmCountryEdt;
end;
//тут либо просто отображение либо могу что то иное замутить по ситуации
procedure TframeCountry.initEntity;
begin
  ShowSelf; 
end;

procedure TfrmMain.mnCountryClick(Sender: TObject);
begin
   Model.createForm(TfrmCountry, True);
end;

with AForm do
  begin
    for i := 0 to ComponentCount - 1 do
    begin
      if (Components[i] is TModel) then
      begin
        f := (Components[i] as TModel);
        t := (f.FindComponent('FrameTopPanel1') as TFrameTopPanel);
        f.init(Self, AFormStyle, '', false, t);
      end;
    end;

 for i := 0 to ComponentCount - 1 do
      begin
//или вьюшка       
 if (Components[i] is TcxGridDBTableView) then
        begin
          View := (Components[i] as TcxGridDBTableView);
          break;
        end
//или дерево
        else if (Components[i] is TcxDBTreeList) then
        begin
          ViewTree := (Components[i] as TcxDBTreeList);
          break;
        end;
      end;
.....
//отловил назначил 
if View <> nil then
      begin
        Query := (View.DataController.DataSource.DataSet as TUniQuery);
        DataSource := (View.DataController.DataSource as TUniDataSource);
      end
      else
      begin
        ViewTree.DataController.DataSource := DataSource;
      end;
//панель действий ()
 ATopPanel.btnDel.OnClick := DeleteRecord;
    ATopPanel.btnRefresh.OnClick := RefreshRecord;
    ATopPanel.btnEdit.OnClick := EditRecord;
    ATopPanel.btnAdd.OnClick := AddRecord;
    // ATopPanel.btnSel.OnClick := OnSelectClick;
    if View <> nil then
    begin
      if AFromForm = true then
        View.OnDblClick := OnSelectClick
      else
        View.OnDblClick := OnDblClick;
    end