UniApplication 对象

UniApplication 返回一个 TUniGUIApplication 实例 , 它是所有当前会话资源 (MainForm 、 MainModule 和所有其他窗体和 DataModules) 的所有者。 它是全局可
用的 , 可以在 uniGUI 控件事件处理程序内访问。 UniApplication 有几个有用的属性 , 可用于获取有关关联会话的信息。 例如 , URL 参数、客户端屏幕宽度、客
户端屏幕高度、设备类型、与客户端 PC 相关的信息和 cookie 。
在代码中创建窗体时 , 必须将其所有者设置为 UniApplication 。
procedure TMainForm.UniButton2Click(Sender: TObject);
begin
with TUniForm2.Create(UniApplication) do
ShowModal();
end;
UniApplication 本身实际上是一个函数 , 它返回当前会话的 TUniGUIApplication 的正确实例 :
unit uniGUIApplication;
interface
function UniSession: TUniGUISession;
function UniApplication: TUniGUIApplication;
…
For this reason UniApplication should only be accessed inside an event handler which is fired from a uniGUI control.
procedure TMainmForm.UnimButton1Click(Sender: TObject);
begin
if upAndroid in UniApplication.UniPlatform then
ShowMessage(‘This is an Android device!’);
end;