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.