关于网友提出的“ delphi winform程序怎么实现SESSION那样功能程序,如打开不用 45分钟后自动关闭或者退出”问题疑问，本网通过在网上对“ delphi winform程序怎么实现SESSION那样功能程序,如打开不用 45分钟后自动关闭或者退出”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
问题： delphi winform程序怎么实现SESSION那样功能程序,如打开不用 45分钟后自动关闭或者退出
描述: 谢谢指点
解决方案1: 用一个全局变量+timer...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const timeout:Integer=10;
var
Form1: TForm1;
timecount:Integer=0;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Inc(timecount);
end;
procedure TForm1.FormClick(Sender: TObject);
begin
if( timecount>=timeout) then
begin
ShowMessage('已超时');
Exit;
end;
timecount:=0;
end;
以上介绍了“ delphi winform程序怎么实现SESSION那样功能程序,如打开不用 45分钟后自动关闭或者退出”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/2245489.html
