Savoir si le form est la fenêtre activeRésolu

Question

Bonjours, je voudrai savoir comment faire pour savoir si la form de mon application est activ&#233;e ou pas (si c'est la feneitre active ou si elle est en arriere plan)

...

cs_ahmed12 · Accepted Answer

essaie la propri&#233;t&#233; de la fiche 

if form.Active=true
begin
end else
 begin
end;

flo160fr · Answer

Au passage, saurai tu si il y aurai un evenement de la form lor du passage de l'arriere plan &#224; l'avant plan et inversement 

...

jlen100 · Answer

voir onactivate et on desativate

@+

jlen

cs_Delphiprog · Answer

@ahmed12 : je ne connais pas de propri&#233;t&#233; "Active" pour les fiches TForm.
D'autre part, ce n'est pas utile de faire un test d'&#233;galit&#233; avec des bool&#233;ens.
If MonBooleen then ...
Ca suffit largement. 

Flo160fr :  tu peux aussi utiliser la propri&#233;t&#233; ActiveForm de l'objet Screen et la comparer &#224; une r&#233;f&#233;rence de fiche quelconque de l'application.

La solution propos&#233;e par Jlen100 est surement la plus adapt&#233;e avec l'utilisation des &#233;v&#232;nements OnActivate et OnDeactivate de la fiche.

<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Cirec · Answer

Salut,
 tu peux aussi utiliser ceci :

procedure TForm1.Button1Click(Sender: TObject); // o&#249; tout autre proc&#233;dure 
beginIf  Screen.ActiveForm Form1  Then  Label1.Caption : 'Ouiiiiiiiiiiiiiii';
end;



@+
Cirec

cs_ahmed12 · Answer

[mailto:{@ahmed12 delphiprog] : je ne connais pas de  propri&#233;t&#233; "Active" pour les fiches TForm.
D'autre part, ce n'est pas utile de faire un test d'&#233;galit&#233; avec des bool&#233;ens.
If MonBooleen then ...
Ca suffit largement.}


1-si tu connais pas cette  propri&#233;t&#233; c'est le momon pour la conna&#238;tre vas faire un tour sur l&#146;aide de delphi il pourrait tu convaincre.


2-[concernant le test d&#146;&#233;galet&#233;], ponce toi sur les d&#233;butants.

flo160fr · Answer

le seul probl&#232;me, c'est que avec BorderStyle := bsNone, l'&#233;v&#233;nement OnDesactivate ne fonctionne pas.. .

...

cs_Delphiprog · Answer

Par fiche active, il faut comprendre la fiche active au sein de l'application !
Si tu cliques ailleurs, sur le bureau Windows par exemple, alors ce n'est pas ce qu'il te faut.
Tu dois utiliser l'objet Application.

Dans ce cas, dans ta fiche principale, tu d&#233;clares deux m&#233;thodes comme ceci :
private
{ D&#233;clarations priv&#233;es }
procedure AppActivate(Sender: TObject);
    procedure AppDeactivate(Sender: TObject);

Dans ces deux m&#233;thodes, tu mets le code que tu veux :

procedure TForm1.AppActivate(Sender: TObject);
begin
  Label1.Caption :=  'Application active';
 end ;

procedure TForm1.AppDeactivate(Sender: TObject);
begin
  Label1.Caption : = 'Application d&#233;sactiv&#233;e';
end;

Enfin, lorsque la fiche est cr&#233;&#233;e, tu affectes ces m&#233;thodes aux &#233;v&#232;nements de l'application :

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnActivate :=  AppActivate;
  Application.OnDeactivate := AppDeactivate;
 end ;

Selon ta version de Delphi, tu peux aussi utiliser le composant TApplicationEvents (onglet Suppl&#233;ment, D6+) si cela te semble plus facile et surcharger les m&#233;thodes OnActivate et OnDeActivate.


<HR color =#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

flo160fr · Answer

ok... merci beaucoup &#224; tout le monde

Cirec · Answer

@ DelphiProg Extrait de l'aide Delphi : TCustomForm.Active Propriété Indique si la fiche détient la focalisation. Classe TCustomForm Syntaxe [Delphi] public property Active: Boolean read FActive; Description Utilisez la propriété Active pour déterminer si la fiche détient la focalisation. La fiche active reçoit toutes les entrées clavier. Si elle a une barre de titre, elle est dessinée en utilisant les couleurs actives spécifiées dans le volet Contrôle. Si Active vaut true, la fiche détient la focalisation ; si Active vaut false, la fiche n'a pas la focalisation. @+ Cirec

cs_Delphiprog · Answer

Merci beaucoup Cirec 
Gr&#226;ce &#224; vous, j'ai d&#233;couvert cette propri&#233;t&#233; au bout de 10 ans de pratique de Delphi. Je me disais aussi qu'il me manquait quelques chose...
Disons que je pr&#233;f&#233;re utiliser ActiveForm car cette propri&#233;t&#233; est en lecture ET &#233;criture.
A chacun ses pr&#233;f&#233;rences.
<hr color="#008000">Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

cs_ahmed12 · Answer

et a mois ne oublie pas ahmed12

cs_Delphiprog · Answer

Non, Ahmed12, je ne t'oublie pas, rassure-toi  lol


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.

Savoir si le form est la fenêtre active

13 réponses

Votre réponse

Discussions similaires