我希望一个窗体如果没有任何鼠标点击,拖动,那么10秒钟后自动关闭或最小化,谢谢 我希望1、一个窗体如果没有任何鼠标点击,拖动等操作,那么10秒钟后自动关闭或最小化2、一个窗体打开后,不管有没有对这个窗体操作,10秒钟后无条件自动关闭或最小化谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 窗体上放一个Timer,Interval属性为10000,OnTimer事件为代码就 close;这不是很容易吗? 2比较容易实现,如上1.参照2, 如果有鼠标/键盘操作,使Timer重新记时 在窗体的MOUSE,KEY,拖动事件里控制一个TIMER. 2.procedure TForm1.Timer1Timer(Sender: TObject);begin Close;end;procedure TForm1.FormCreate(Sender: TObject);begin Timer1.Interval := 5000; Timer1.Enabled := true;end; hook 取分辨率的API 寻求一份WinSock类的实例代码 弱弱的问题,delphi 设置的问题 关闭窗口与打开窗口的问题 验证登陆窗体的问题 帮忙看看这段代码,嵌套循环的效率问题 键盘鼠标 一个奇怪的问题,关于数据库连接的... 怎么正确的显示access的日期/时间类型数据 急,求一解决方案! 自定义控件 我用delphi7.0做了一个控件,但PB调用后退出报错,怎么回事
这不是很容易吗?
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Close;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 5000;
Timer1.Enabled := true;
end;