[juanlaplata]

Código Delphi [-]
procedure TForm1.ApplicationEvents1Restore(Sender: TObject);
begin
showMessage('Vuelve arriba');
end;

procedure TForm1.ApplicationEvents1Minimize(Sender: TObject);
begin
showMessage('Minimizando');
end;