TApplicationRestore (Delphi)

Description

This example uses a timer on a form. When the application runs and you minimize the application, the timer starts and the application returns to its normal size when an OnTimer event occurs. The timer then shuts down until the next time the form is minimized. Be sure to declare the AppStartTimer method as a public method of TForm1. Place a TTimer object in the form and enter Timer1Timer in the OnTimer event.

Code

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;

Uses

• Vcl.Forms.TApplication.Restore ( fr | de | ja )
• Vcl.Forms.TApplication.OnMinimize ( fr | de | ja )
• Vcl.ExtCtrls.TTimer.Enabled ( fr | de | ja )
• Vcl.ExtCtrls.TTimer.Interval ( fr | de | ja )