Delphi Application.Restore; 简单用法

本文整理自网络，侵删。

 
TApplicationRestore（Delphi）
描述
本示例在表单上使用计时器。当应用程序运行并且您最小化应用程序时，计时器将启动，并且在发生OnTimer事件时，应用程序将返回其正常大小。然后计时器关闭，直到下一次最小化表单。确保将AppStartTimer方法声明为TForm1的公共方法。在窗体中放置一个TTimer对象，然后在OnTimer事件中输入Timer1Timer。

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize := AppStartTimer;
end;

procedure TForm1.AppStartTimer(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Application.Restore;
  Timer1.Enabled := False;
end;
 

相关阅读 >>

Delphi xe5 为android增加启动图片显示

embarcadero开源项目赞助

Delphi xe5 android 调用 google zxing

Delphi win10系统通知 notificationcenter1 基本用法

winapi 字符及字符串函数(12): lstrlen - 串长度

Delphi 获取计算机名称 函数

Delphi使用正则匹配网页数据

Delphi webbroker standalone 模式下当作一个普通的 webserver 响应静态网页或其它文件的请求

Delphi webbrowser载入自定义html内容并显示

Delphi 学习 sql 语句 - select(8): 分组条件

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi Application.Restore; 简单用法