Discussion :

[Bruno13]

Bonjour à tous,

Existe-t-il un moyen de rendre tous les composants (checkbox, comboxbox, etc...) "disable" en une seule action ?

Pour mon cas, j'ai 2 radio bouton qui lorsque j'en choisis un m'active ou me désactive certaines options. Mais pour faire ça, je me paluche tous les compos de mon TPanel concerné un à un pour les désactiver.

Merci pour vos conseils

[sjrd]

Ben... Désactiver le panel

Code :

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

PanelContainer.Enabled := False;

[Bruno13]

Y'a des moments où je me dis vraiment que je dois m'arrêter de programmer histoire de ne plus poser des questions aussi c.... j'ai honte

[ShaiLeTroll]

Attention cela disable le clic, mais l'aspect lui reste actif ce qui peut être trompeur ...

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure RecurseEnabled(AControl: TControl; AEnabled: Boolean);
var
  I: Integer;
begin
  AControl.Enabled := AEnabled;
  if AControl is TWinControl then
    with TWinControl(AControl) do
     for I := 0 to ControlCount - 1 do
       RecurseEnabled(Controls[I], AEnabled);
end;