Discussion :

[lassmust]

salut tout le monde
j'ai 13 dbedit je veut les mettre tous dans une boucle en readonly := true
câd je ne veut pas faire dbedit1.readonly:=true;
dbedit2.readonly:=true;
.
.
.
dbedit13.readonly:=true;
donc y a t'il une boucle qui permet ca? si oui comment faire?
merci d'avance

[Andry]

Salut,

Il suffit de faire comme ceci :

Code :

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

1
2
3
4
5
6
 
for I := ComponentCount -1 downto 0 do
begin
  if Components[i] is TDbEdit then 
  (Components[i] as TDbEdit).ReadOnly := True;
end;

A+

[Cl@udius]

Salut,

Mets tes DBEdits sur un TPanel (ou un TGroupBox) et mets la propriété Enabled du TPanel à True ou False suivant les besoins.

Edit: Mais de méthode d'Andry, et surement plus efficace....

@+