Forme en i pour eviter de nombreuses lignes
Résolu
Valentin_Loupe
Messages postés
7
Date d'inscription
mardi 25 octobre 2005
Statut
Membre
Dernière intervention
29 octobre 2006
-
31 mars 2006 à 23:40
jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 - 1 avril 2006 à 00:10
jlen100 Messages postés 1606 Date d'inscription samedi 10 juillet 2004 Statut Membre Dernière intervention 25 juillet 2014 - 1 avril 2006 à 00:10
A voir également:
- Forme en i pour eviter de nombreuses lignes
- Plate-forme de dessin de personnages - Conseils pratiques -Flash
- Vba commenter plusieurs lignes ✓ - Forum ASP / ASP.NET
- Site en ligne pour créer un bulletin scolaire - Forum PHP
- Visual studio code mise en forme automatique ✓ - Forum ASP / ASP.NET
- VBA Excel : Commentaire ✓ - Forum Visual Basic 6
2 réponses
jlen100
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
13
1 avril 2006 à 00:09
1 avril 2006 à 00:09
salut,
utilises findcompoenent
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:= 1 to 15 do
begin
if Tcheckbox(findcomponent('checkbox'+inttostr(i))).Checked then
TPanel(findcomponent('Panel'+inttostr(i))).Visible: =true
else
TPanel(findcomponent('Panel'+inttostr(i))).Caption:=false
end;
@+
jlen
utilises findcompoenent
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:= 1 to 15 do
begin
if Tcheckbox(findcomponent('checkbox'+inttostr(i))).Checked then
TPanel(findcomponent('Panel'+inttostr(i))).Visible: =true
else
TPanel(findcomponent('Panel'+inttostr(i))).Caption:=false
end;
@+
jlen
jlen100
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
13
1 avril 2006 à 00:10
1 avril 2006 à 00:10
petite rectification:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:= 1 to 15 do
begin
if Tcheckbox(findcomponent('checkbox'+inttostr(i))).Checked then
TPanel(findcomponent('Panel'+inttostr(i))).Visible: =true
else
TPanel(findcomponent('Panel'+inttostr(i))).Visible:=false
end;
@+
jlen
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:= 1 to 15 do
begin
if Tcheckbox(findcomponent('checkbox'+inttostr(i))).Checked then
TPanel(findcomponent('Panel'+inttostr(i))).Visible: =true
else
TPanel(findcomponent('Panel'+inttostr(i))).Visible:=false
end;
@+
jlen
