unigui中创建freeform并被fram调用

1、创建FreeForm窗体。

2、编写函数。

function FrmNewMember: TFrmNewMember;
implementation
           

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

3、调用。（主调用为fram窗体）

procedure TFramMembers.UniButton1Click(Sender: TObject);
begin
    FrmNewMember.Show();
end;