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;