在浏览器中运行一个uniGUI应用，当超过一定时间，无人操作时，我们想实现自动退出应用，该如何实现呢？
下面是具体的实现方法：
在MainForm中，增加了一个事件OnSessionIdle，当超过一定时间无人操作时，会触发这个事件，这个时间在哪里设置呢？答案是UniServerModule的AjsxTimeout这个属性，单位毫秒。
利用上面的原理，我们开始实现一个超过30秒无人操作时，自动退出应用。
1.设置UniServerModule.AjaxTimeout:=30000
2.实现MainForm.OnSessionIdle事件：
在这个事件中，我们显示一个提示窗口UniIdleForm，当这个窗口不返回mrOK时，关闭应用。
procedure TMainForm.UniFormSessionIdle(Sender: TObject);
begin
UniIdleForm.ShowModal(
procedure(Sender: TComponent; AResult:Integer)
begin
if AResult <> mrOK then
begin
UniSession.Terminate('Your session terminated because it was idle for 30 seconds!');
end;
end
);
end;
3.接下来，看UniIdleForm的实现：
建立一个UniIidleForm，放置一个UniTimer1，设置Interval=5000,即5秒触发一次。
建立一个私有变量FCnt，初始值设置为6，在UniTimer1的OnTimer事件中，利用FCnt变量，控制计时。当FCnt小等于0时，自动退出窗口并设置返回值为mrCancel。具体的代码：
procedure TUniIdleForm.UniTimer1Timer(Sender: TObject);
begin
if FCnt <= 0 then
begin
ModalResult := mrCancel;
Exit;
end;
UniLabel1.Caption := 'Session will be terminated in <b>' +
IntToStr(FCnt * 5) + '</b> seconds.<br>' +
'Please press "Continue" to return to your session.';
Dec(FCnt);
end;
本文基于官方的例子Session Idle Timeout所写，具体项目在FMSoft\Framework\uniGUI\Demos\Desktop\Session Idle Timeout目录。
