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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 674 fois - Téléchargée 31 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
Messages postés
136
Date d'inscription
lundi 2 septembre 2002
Statut
Membre
Dernière intervention
15 février 2006

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

ç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.