Delphide Aktif form

 
  unit Unit1; 
   
  interface 
   
  uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs; 
   
  type 
    TForm1 = class(TForm) 
      procedure FormCreate(Sender: TObject); 
    private   
    public 
      procedure AppDeactivate(Sender: TObject); 
    end; 
   
  var 
    Form1: TForm1; 
   
  implementation 
   
  {$R *.dfm} 
   
  procedure TForm1.FormCreate(Sender: TObject); 
  begin 
    Application.OnDeactivate := AppDeactivate; 
  end; 
   
  procedure tform1.AppDeactivate(Sender: TObject); 
  begin 
     Application.Minimize; 
  end; 
   
  end.