Utilsation du progress bar
Résolu
manivictor
Messages postés
7
Date d'inscription
dimanche 1 octobre 2006
Statut
Membre
Dernière intervention
6 août 2007
-
4 août 2007 à 17:55
Nicolas___ Messages postés 992 Date d'inscription jeudi 2 novembre 2000 Statut Membre Dernière intervention 24 avril 2013 - 5 août 2007 à 21:59
Nicolas___ Messages postés 992 Date d'inscription jeudi 2 novembre 2000 Statut Membre Dernière intervention 24 avril 2013 - 5 août 2007 à 21:59
2 réponses
f0xi
Messages postés
4205
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
12 mars 2022
35
4 août 2007 à 19:05
4 août 2007 à 19:05
exemple :
procedure TForm1.Button1Click(Sender : TObject);
var N : integer;
begin
progressbar1.position := 0;
progressbar1.max := 1000;
for N := 0 to 999 do
begin
{ tache }
if (N mod 5) = 0 then
begin
progressbar1.position := N;
application.processmessage;
end;
end;
ShowMessage('{ message }');
end;
procedure TForm1.Button1Click(Sender : TObject);
var N : integer;
begin
progressbar1.position := 0;
progressbar1.max := 1000;
for N := 0 to 999 do
begin
{ tache }
if (N mod 5) = 0 then
begin
progressbar1.position := N;
application.processmessage;
end;
end;
ShowMessage('{ message }');
end;
Nicolas___
Messages postés
992
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
24 avril 2013
1
5 août 2007 à 21:59
5 août 2007 à 21:59
on telecharge un cours, on le lit , on le comprend ( voir meme l'etudier )
et on programme de longue nuit pour s entrainer ... c est deja un debut apres faut voir _
Ciao
et on programme de longue nuit pour s entrainer ... c est deja un debut apres faut voir _
Ciao
