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;

推荐分享