guigui265
Messages postés113Date d'inscriptionmercredi 29 novembre 2000StatutMembreDernière intervention16 avril 2006
-
28 mars 2006 à 14:47
guigui265
Messages postés113Date d'inscriptionmercredi 29 novembre 2000StatutMembreDernière intervention16 avril 2006
-
31 mars 2006 à 14:03
bonjour,
j'ai,dans un listbox, une multitude de tedit et de tcombobox.
Et je voudrais pouvoir mettre checked a false,mais je ne veux pas le faire 50foi, commen faire pour que tout lé composan du meme type puissent etre utilisé en une seule ligne?
merci
guillaume
guigui265
Messages postés113Date d'inscriptionmercredi 29 novembre 2000StatutMembreDernière intervention16 avril 2006 28 mars 2006 à 16:32
et bien c'est simple, j'ai plusieurs tedit dans un combobox, et pluto ke de faire :
cb1.checked:=false;
cb2.checked:=false;
cb3.checked:=false;
cb4.checked:=false;
je voudrais le faire en une seule ligne,pour éviter de retaper 50foi le meme code!
@+
guillaume
f0xi
Messages postés4205Date d'inscriptionsamedi 16 octobre 2004StatutModérateurDernière intervention12 mars 202235 28 mars 2006 à 17:10
procedure CheckAll(Obj : array of TCheckbox; const VB : boolean = false);
var X : integer;
begin
for X := low(Obj) to high(Obj) do begin
TCheckBox(Obj[x]).Checked := VB;
end;
end;
procedure ReverseCheck(Obj : array of TCheckBox);
var X : integer;
begin
for X := low(Obj) to high(Obj) do begin
Cirec
Messages postés3833Date d'inscriptionvendredi 23 juillet 2004StatutModérateurDernière intervention18 septembre 202250 28 mars 2006 à 17:14
Bon alors c'est simple tu fais :
pour une série de 5 CheckBox par exemple :
Pour effectuer plusieurs actions sur une série de CheckBoxs
For I := 1 to 5 do With TCheckBox(FindComponent('CheckBox' + IntToStr(I))) do Begin Visible : = False;
Checked := False;
End ;
Pour effectuer une action sur une série de CheckBoxs For I : = 1 to 5 do TCheckBox(FindComponent('CheckBox' + IntToStr(I))).Checked := False;
@+
Cirec
Vous n’avez pas trouvé la réponse que vous recherchez ?
guigui265
Messages postés113Date d'inscriptionmercredi 29 novembre 2000StatutMembreDernière intervention16 avril 2006 31 mars 2006 à 14:03
Delphiprog: je me suis trompé, dsl, je voulais dire que j'avais plusieurs tedit et plusieurs combobox dans un groupbox
sinon,merci pour les réponses, je vais essayé ca!
a+
guillaume