unit _AppForm;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIForm;
 
type
  TAppForm = class(TUniForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
function AppForm: TAppForm;
 
implementation
 
{$R *.dfm}
 
uses
  MainModule, uniGUIApplication;
 
function AppForm: TAppForm;
begin
    Result := TAppForm(UniMainModule.GetFormInstance(TAppForm));
end;
 
end.

UniForm1.Caption := 'New Caption';   // 创建一个新的表单实例(赋值时系统会自动创建此窗体)，并为标题分配一个新值

UniForm1.Show;                       // 接着在创建后立即调用Show函数，显示此窗体

unit _FreeForm;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIForm;
 
type
  TFreeForm = class(TUniForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
implementation
 
uses
  uniGUIApplication;
 
{$R *.dfm}
 
end.

unit _FreeForm;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics,
  Controls, Forms, uniGUITypes, uniGUIAbstractClasses,
  uniGUIClasses, uniGUIForm, uniButton, uniGUIBaseClasses, uniEdit;
 
type
  TFreeForm = class(TUniForm)
    edtText: TUniEdit;
    btnOk: TUniButton;
    btnCancel: TUniButton;
  private
    function GetText: string;
  public
    property Text : string read GetText;
  end;
 
  function GetText : string;
 
implementation
 
uses
  uniGUIApplication;
 
{$R *.dfm}
 
function GetText : string;
var
  frm : TFreeForm;
begin
  frm := TFreeForm.Create(uniGUIApplication.UniApplication);
 
  if frm.ShowModal = mrOk then
    Result := frm.Text
  else
    Result := ''; 
end;
 
{ TFreeForm }
 
function TFreeForm.GetText: string;
begin
  Result := edtText.Text;
end;
 
end.