Discussion :

[dleu]

Bonjour,

j'ai une petite question : y a-t'il un moyen simple pour désactiver tous les contrôles d'une fiche sans mettre à False la propriété enabled de chaque contrôle un à un ?

Je m'explique : ma fiche comporte un grand nombre de boutons et d'édits et écrire une procédure qui les inactive tous, les uns après les autres, me paraît fastidieux et pas très propre.

Est-ce qu'une boucle qui "scannerait" tous les contrôles de la fiche conviendrait ? Comment pourrais-je réaliser cela ?

Merci pour votre aide.

Didier

[PpPool]

Bonjour,

j'ai une petite question : y a-t'il un moyen simple pour désactiver tous les contrôles d'une fiche sans mettre à False la propriété enabled de chaque contrôle un à un ?

Je m'explique : ma fiche comporte un grand nombre de boutons et d'édits et écrire une procédure qui les inactive tous, les uns après les autres, me paraît fastidieux et pas très propre.

Est-ce qu'une boucle qui "scannerait" tous les contrôles de la fiche conviendrait ? Comment pourrais-je réaliser cela ?

Merci pour votre aide.

Didier

2 secondes montre en main : tu mets tous tes controles dans un Tpanel. Et tu mets la propriété enabled de ton TPanel à false.

Voili voilou
c'est pas simple la vie ?

[dleu]

2 secondes montre en main : tu mets tous tes controles dans un Tpanel. Et tu mets la propriété enabled de ton TPanel à false.

Voili voilou
c'est pas simple la vie ?

C'est tellement évident que j'en reste pantois.

Merci.

[Bloon]

Dans un Panel, les contrôles seront inaccessibles mais pas grisés.

On peut donc faire une petite boucle :

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
procedure desactiverControles(ctrl : TWinControl);
var
 i : integer;
begin
  for i := 0 to ctrl.ControlCount - 1 do
  begin
    // appel récursif afin de traiter les contrôles détenus par le contrôle[i]
    if (ctrl.Controls[i] is TWinControl) then
      desactiverControles(ctrl.Controls[i] as TWinControl);
    ctrl.Controls[i].Enabled := false;
  end;
end;
 
// utilisation :
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  desactiverControles(self);
end;

Bloon

[dleu]

Merci Bloon.

C'est effectivement à un truc comme ça auquel je pensais en posant ma question. Une boucle de ce genre permet de laisser un contrôle actif et d'inactiver tous les autres ce qui correspond plus à ce que je cherchais que le panel.

A+