Discussion :

[Aos]

Bonjour,

J'ai une fiche avec des tas de composant (TEdit, TMemo, Caption) et je souhaite que ses composant changent de couloir lorsque l'on tabule dessus.

Alors il y a la solution dans les évenements du compsant "OnEnter, onExit" et de faire un

Code :

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

monComposant.Color:=ClRed

Mais j'ai une cinquantaine de composant...

Existe t-il une solution (sur la form par exemple) pour faire ça sur TOUT les composant de la forme ?

J'ai dans un premier temps penser a l'évenement OnKeyPress sur VK_TAB mais j'arrive pas a me dépatouiller avec ça.

Merci !

[ALWEBER]

Pour chaque type de composant tu ecrits des évènements
comme par exemple

Code :

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

1
2
3
4
procedure TForm1.Edit1Enter(Sender: TObject);
begin
  with sender as TEdit do Color := MaCouleur ;
end;

et tu attaches cet événement à tous les objets du même type et ainsi desuite

[philnext]

Tu peux aussi sur le OnKeyPress lancer une procédure qui regarde tous les composants de ta Form et qui fait

Code :

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

1
2
 
monComposant.Color:=ClRed

pour celui qui a le focus et qui fait

Code :

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

monComposant.Color:=ClBlue

pour ceux qui n'ont pas le focus et qui sont ClRed.

[anapurna]

salut

dans une form tu peut faire

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Procedure TmaForm.FormCreate(Sender : TObject);
begin
  ParcourslistComp(self);
end;

procedure TmaForm.ParcourslistComp(F: TScrollingWinControl);
var
   i: integer;
  c: TComponent;
begin
   for i := 0 to Pred(F.ComponentCount [EDit ] suppression "-1" [/EDIT]) do
   begin
       c := F.Components[i];
       AssignPropriete(c);
   end;
end;

procedure TmaForm.AssignPropriete(C: TComponent);
begin
   if (C is TEdit) then 
   begin
      if not Assigned(TEdit(C).OnEnter) then
          TEdit(C).OnEnter := OnEnterControl;
     if not Assigned(TEdit(C).OnExit)  then
         TEdit(C).OnExit  := OnExitControl;
   end;
end;
{------------------------------------------------------------------------------}
procedure TmaForm.OnEnterControl(Sender: TObject);
begin
 [EDit ] suppression [/EDIT]
  if (Sender is TEdit) then
     (Sender as TEdit).Color := clLightYellow;
 nd;
{------------------------------------------------------------------------------}
procedure TmaForm.OnExitControl(Sender: TObject);
begin
  if (Sender is TEdit) then
    (Sender as TEdit).Color := clWindow;
 nd;
{------------------------------------------------------------------------------}

@+ Phil

[Aos]

hello,

Merci à tous pour votre aide.
ALWEBER : c'est justement ce que je ne veux pas faire. Attacher l'élément a chaque objet. y'en a plus d'une centaine...

PhilNext : Oui c'est une bonne solution, si je n'arrive pas a implémenter celle de anapurna, je vais opter pour celle la. Il n'y a pas un moyen simple de récupérer LE composant sur lequel est le focus ?
Je suis obligé de tous les parcourir en testant le focus ?

Anapurna : Merci pour ta solution, j'imagine que le "checkautoconversion" n'a rien a faire la ? Je teste et je te dis quoi.

[Aos]

Re,

La solution anapurna fonctionne IMPECCABLE.
Juste 2 petites corrections :
- le checkAutoConversion; qui n'a rien a faire la.

La seconde :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TmaForm.ParcourslistComp(F: TScrollingWinControl);
var
   i: integer;
  c: TComponent;
begin
   for i := 0 to Pred(F.ComponentCount-1) do // Il faut enlever le -1 ou enlever le pred
   begin
       c := F.Components[i];
       AssignPropriete(c);
   end;
end;

Voila Merci à vous tous.

[Aka Guymelef]

Il n'y a pas un moyen simple de récupérer LE composant sur lequel est le focus ?
Je suis obligé de tous les parcourir en testant le focus ?

Si, le TForm possède une propriété ActiveControl qui te donne le composant qui a actuellement la focalisation

[Aos]

Aka Guymelef : Lequel ? j'ai trouvé CanFocus ou focused mais ça renvoie des booleans...

[Aka Guymelef]

Non mais c'est la fiche elle-même qui possède cette propriété, donc si tu es dans une méthode de la fiche tu peux faire directement référence à ActiveControl. Consulte l'aide sur TForm pour plus d'information.

[Aos]

ah ouiiiiiiiii ok j'ai saisi.
Je te remercie Aka.

A bientôt !