Détecter le programme qui s'exécute en premier planRésolu

Question

Bonjour,

Voici un exemple :

je programme un jeu, lorsque j'y joue il se trouve en 1er plan sur l'&#233;cran. D&#232;s qu'un autre programme s'exectue et passe devant mon jeu, celui-ci continue de tourner alors que le clavier n'est plus disponible.
Je voudrais pouvoir le d&#233;tecter afin de mettre mon jeu en pause et reprendre son ex&#233;cution d&#232;s qu'il revient au 1er plan.

WhiteHippo · Accepted Answer

Avec les evenements OnActivate, et OnDesactivate du TApplication.

Cordialement.

EddiTheHead · Answer

Je n'ai pas trouv&#233; les evenements de TApplication (delphi3).

Mais &#224; gr&#226;ce &#224; tes infos, j'ai trouv&#233; un exemple dans l'aide et j'ai &#233;crit ceci :

Procedure TForm1.FormCreate(Sender: TObject);
Begin
     Application.OnActivate := JeuEnCours;
     Application.OnDeactivate := JeuEnPause;
End;


Procedure TForm1.JeuEnCours;
Begin
     Color := clGreen;
End;


Procedure TForm1.JeuEnPause;
Begin
     Color := clRed;
End;

ca fonctionne, je suppose que c'est correcte.

Merci.

WhiteHippo · Answer

Tout &#224; fait.

Cordialement.

Détecter le programme qui s'exécute en premier plan

3 réponses

Votre réponse

Discussions similaires