Yil2201
Messages postés134Date d'inscriptionmercredi 1 décembre 2004StatutMembreDernière intervention10 août 2008
-
3 oct. 2005 à 09:13
exyacc
Messages postés163Date d'inscriptiondimanche 20 octobre 2002StatutMembreDernière intervention31 juillet 2008
-
3 oct. 2005 à 14:45
Salut, voila je fais pour mon plaisir le design d'un antivirus, seulement lorsque j'ai créé la bouton pouractiver une des protections en temps réel celui-ci ne fonctionne pas. Les éléments : Button2 -> le bouton pour activer/désactiver Gauge1 -> pour voir le %age de protection label4 -> l'etat de la protection ( ce sont des détails ) voici le code qui ne fonctionne pas :
procedure TForm1.Button2Click(Sender: TObject);
begin
if label4.Caption ='Bouclier désactivé' then
begin
Gauge1.Progress:=Gauge1.Progress + 20;
Button2.Caption:='Désactiver';
label4.Caption:='Bouclier activé';
end;
if label4.Caption = 'Bouclier activé' then
begin
Gauge1.Progress:=Gauge1.Progress - 20;
Button2.Caption:='Activer';
label4.Caption:='Bouclier désactivé';
end;
end;
en faite, mon but est que si il est désactivé, il soit activer mais quand je compile rein ne se passe. Je suppose que c'est prc le sqoft lit les deux instructions une apres l'autre mais je ne sais pas comment remédier à cela, merci beaucoup de votre aide, yil2201
exyacc
Messages postés163Date d'inscriptiondimanche 20 octobre 2002StatutMembreDernière intervention31 juillet 2008 3 oct. 2005 à 09:36
ben normal.... imagines que ton bouvlier est desactivé, quand tu entres dans la procedure
if label4.Caption ='Bouclier désactivé' then
begin
Gauge1.Progress:=Gauge1.Progress + 20;
Button2.Caption:='Désactiver';
label4.Caption:='Bouclier activé';
end;
la tu mets ton caption a 'bouclier activé" et aussitot tu fais:
f label4.Caption = 'Bouclier activé' then
begin
Gauge1.Progress:=Gauge1.Progress - 20;
Button2.Caption:='Activer';
label4.Caption:='Bouclier désactivé';
end;
donc tu le redesactive .....
faut juste ajouter un "else"
procedure TForm1.Button2Click(Sender: TObject);
begin
if label4.Caption ='Bouclier désactivé' then
begin
Gauge1.Progress:=Gauge1.Progress + 20;
Button2.Caption:='Désactiver';
label4.Caption:='Bouclier activé';
end
ELSE
if label4.Caption = 'Bouclier activé' then
begin
Gauge1.Progress:=Gauge1.Progress - 20;
Button2.Caption:='Activer';
label4.Caption:='Bouclier désactivé';
end;
end;