[Delphi] Comment savoir si mon programme est actif ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Delphi] Comment savoir si mon programme est actif ?

AZorbas

That's me , Alexis Zorbas !

Bonjour,

je désire connaître l'état de mon programme s'il est actif (au premier plan) ou inactif (au second plan) ...

je sais qu'avec la plupart des objets (memo, etc) il y a les évènements onExit et onEnter mais pour le form ...

une idée ?

J'ai fait quelque recherche avec "focus" mais rien de 'simple' à la manière de VB ..

:jap: :jap: :jap:

Message édité par AZorbas le 29-12-2002 à 00:14:12

---------------
www.astrocosmos.net, le portail belge francophone sur l'astronomie et les Sciences.

Publicité

taureau

il te suffit de te connecter sur les évenements OnActivate et OnDeactivate de Application

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnActivate := AppActivate;
Application.OnDeactivate := AppDeactivate;
end;

procedure TForm1.AppDeactivate(Sender: TObject);
begin
// ici on quitte l'appli pour basculer sur une autre
end;

procedure TForm1.AppActivate(Sender: TObject);
begin
// coucou on est de retour à la maison
end;

HelloWorld

Salut tout le monde!

Pour tester comme cela en plein milieu si ta fenetre est au premier plan, tu paux aussi utiliser GetForegroundWindow qui renvoit le handle de la fenetre du premier plan.

Code :

if Fenetre.hWnd = GetForegroundWindow then
// elle est au premier pan
else
// elle l'est pas
endif

PS : c'est bien comme cela le pascal ? Ca me fait faire une petite revision. Je me souviens que y'a pas besoin de mettre les parentheses quand y'a pas d'argument a une fonction, qu'est-ce que ca m'a soulé ca (quand tu relis un code et que tu cherche ce que c'est que cette variable :fou: ) A moins que je sois a cote de la plaque

---------------
FAQ fclc++ - FAQ C++ - C++ FAQ Lite

taureau

c presque comme ça

if Fenetre.Handle = GetForegroundWindow then
// premier plan
else
// elle l'est pas

y a pas de endif (fenetre ici est une TForm)

mais y a plus simple

if Fenetre.active then //

pffff ne pas reconnaitre les noms de ses variables...spa bo ça

AZorbas

That's me , Alexis Zorbas !

Merci les gars !!!!!

:bounce:

:jap:

---------------
www.astrocosmos.net, le portail belge francophone sur l'astronomie et les Sciences.

HelloWorld

Salut tout le monde!

Citation :

pffff ne pas reconnaitre les noms de ses variables...spa bo ça

pas de mes variables ... je parle de se palucher le source d'un autre

FORUM HardWare.fr

Programmation

Delphi/Pascal

[Delphi] Comment savoir si mon programme est actif ?

Sujets relatifs
[Linux] Utiliser une commande dans un programme	(lire dans un fichier ascii) pourquoi mon programme ne marche pas ?
[Win32] Wininet : savoir si un fichier existe ?	où D\L delphi 7 personnal ?
delphi et direct x	Programme en mode console avec C++ Builder !
[delphi] débutant : Accès aux fichiers	[Delphi] débutant : créer une unit de fonctions
[VB] Argument a un programme	Livre sur Delphi
Plus de sujets relatifs à : [Delphi] Comment savoir si mon programme est actif ?

Page générée en 0.043 secondes