Aplicación minimizada

[kalimero]

Hola a todos.

¿Como puedo saber si mi aplicacion está minimizada en la barra de tareas?

Saludos y gracias de antemano

[[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

[roman]

Lepe,

Me parece que es más fácil:

Código Delphi [-]
function IsAppMinimized: Boolean;
begin
  Result := Windows.IsIconic(Application.Handle);
end;

Por cierto, las aplicaciones no se minimizan a la barra de tareas, no se minimizan a ningún lado, simplemente se minimizan.

// Saludos

[[Lepe]]

¿para qué hacer las cosas facilmente si puedo hacerlas de la forma más complicada?

PD. No conocía IsIconic

Saludos

[kalimero]

Si, Gracias a los dos. Al final rebusqué en los foros y encontre el hilo del amigo Román donde explicaba el uso de 'IsIconic'. Realmente sencillo.

Gracias de nuevo .