bonjour,

depuis ce matin je cherche à réaliser une progressbar dans la bare de status de mon formulaire principal. jusque là pas de soucis.

les choses se compliquent au moment d'incrémenter la valeur de ma progressBar. en effet l'endroit où j'aimerais appliquer cette incrémentation est au niveau de l'affichage d'un autre form qui est assez long(car beaucoup de composants)

ma question : comment realiser cette incrémentation ? (on m'a parlé de threads mais je n'ai pas encoure touché à ça)

formPrincipal (au moment d'afficher la deuxieme form) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
procedure TfrmMain.mnuPlanMoisClick(Sender: TObject);
begin
frmPlanMois.Show;
end;
deuxieme form qui au niveau de la méthode 'show' realise une boucle pour creer des composants graphiques

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
 
procedure TfrmPlanMois.FormShow(Sender: TObject);
var
month : integer;
year : integer;
i : integer;
day : integer;
item : TPlannerItem;
begin
plMonth.Caption.Title := ' Planning du mois de '+ FormatDateTime('mmmm', Now);
day := StrToInt(FormatDateTime('dd',Now));
month := StrToInt(FormatDateTime('mm',Now));
year := StrToInt(FormatDateTime('yyyy',Now));
plMonth.Positions := MonthDays[isLeapYear(year)][month];
plMonth.Header.Captions.Clear;
plMonth.Footer.Captions.Clear;
 for i := 0 to plMonth.Positions do
          begin
               if i = 0 then
                  plMonth.Header.Captions.Add('')
               else
                  plMonth.Header.Captions.Add(FormatDateTime('dd/mm/yyyy', Now - day + i));
          end;
 
plannerCreateItems;
end;