Aplicación minimizada

[[Lepe]]

Ya de camino te digo como saber cuando deja de estar minimizada no??

Código Delphi [-]
  private
    FMinimizada: Boolean;

    procedure OnMinimizada(Sender: Tobject);
    procedure OnRestaurada(Sender:TObject);
    procedure SetMinimizada(const Value: Boolean);
    { Private declarations }
  public
    { Public declarations }
   property Minimizada:Boolean read FMinimizada Write SetMinimizada;
  end;

implementation


procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMinimize:= Onminimizada;
  Application.OnRestore:= OnRestaurada;
end;

procedure TForm1.OnMinimizada(Sender:Tobject);
begin
  minimizada:= True;
end;


procedure TForm1.SetMinimizada(const Value: Boolean);
begin
  FMinimizada := Value;
  if FMinimizada then
    Application.title:= '20 %'
  else
    Application.Title:= 'mio';


end;

procedure TForm1.OnRestaurar(Sender: TObject);
begin
  Minimizada:= False;
end;

Saludos