Change Application Title When Minimize Form

Author: admin | Category: Form

 
//This is how we can change the application title when we minimize the application form
//Using ApplicationEvents then we use OnMinimize Event
//To set the title back when we maximize the form use the OnRestore Event
 
unit U_minTit;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, AppEvnts, StdCtrls;
 
type
  TForm1 = class(TForm)
    ApplicationEvents1: TApplicationEvents;
    procedure ApplicationEvents1Minimize(Sender: TObject);
    procedure ApplicationEvents1Restore(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
   Application.Title := 'Mini'
end;
 
procedure TForm1.ApplicationEvents1Restore(Sender: TObject);
begin
  Application.Title := 'Maxi'
end;
 
end.
 

Tags: Application Title, Form