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);
public
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