Discussion :

[fred64]

Bonjour,

sur une fiche, j'ai plusieurs TEdit, je cherche à savoir lequel d'entre eux à le focus,


merci,

Fred

[Cl@udius]

Salut.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Form1.ActiveControl

Te renvoie le controle de la fiche détenant la focalisation !

@+

[fred64]

Malgré une longue recherche, je n'ai rien trouvé, et c'était tout simple !

Merci beaucoup pour ta réponse rapide !


Fred

[mayloshi]

Salut.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Form1.ActiveControl

Te renvoie le controle de la fiche détenant la focalisation !

@+

Je crois qu'il parle de plusieurs edit sur une seule fiche.

Tu fais dans ce cas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
VAR focusse:BOOLEAN;             //True si focus trouvé
      index_focusse:INTEGER;      // Index du controle avec focus 
      nom_focusse:STRING          // Le nom du controle
 
//....
//ton code ici
//....
 
index_focusse:=0;
focusse:=false;
WHILE (index_focusse<=mafiche.componentCount)
         AND NOT focusse DO
BEGIN
      focusse:=TControl(mafiche.component[index_focusse]).focused; //De toute façon ya  qu'un seul focused sur la fiche
      INC(index_focusse);
END;
IF focusse   //Juste pour protection, si ta fiche est active, elle sera toujours TRUE
   THEN begin 
          nom_focusse:=TControl(mafiche.component[index_focusse].name;
          showmessage('A le focus:'+nom_focusse);
         end;
 
//...

Peut etre qu'il y a plus court aussi...

[Cl@udius]

Salut.

A oui, on peut faire plus simple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  if Form1.ActiveControl is TEdit then
    ShowMessage(TEdit(Form1.ActiveControl).Name);

@+