Activer / désactiver en 1 coup les controles d'une fiche

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 844 fois - Téléchargée 32 fois

Contenu du snippet

Permet d'activer ou de désactiver facilement les controle d'une fiche

Source / Exemple :


procedure TForm1.DisableControl(Disable : Boolean);
var
  i : integer;
begin
  for i := 0 to ComponentCount -1 do
    if (Components[i] is TControl) then
     (Components[i] as TControl).Enabled := ((Components[i].Tag = 1) or not
Disable);
end;

Conclusion :


il suffit de mettre à 1 la propriété TAG des controles qu'on ne souhaite pas désactiver

A voir également

Ajouter un commentaire Commentaires
cs_costello
Messages postés
136
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
15 février 2006

21 mai 2004 à 10:52
très bonne idée!
sinon en général on peut faire Form1.Enabled :false; et là ça bloque toute la fenêtre)
JulioDelphi
Messages postés
2226
Date d'inscription
dimanche 5 octobre 2003
Statut
Modérateur
Dernière intervention
18 novembre 2010
13
16 mai 2004 à 00:50
salut,
idem j'm bien le system et c'est rapide, pas bouffeur de code :)
j'adopte :D
DRJEROME
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015

14 mai 2004 à 19:28
ça c'est une bonne astuce...J'aime bien les choses simples qui montrent qu'on est net et concis

Bien vu...comme dirait Delphiprog ;)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.