salut, je veux faire un traitement, et pendant ce traitement j'affiche un progressBar (avec la propriété marquee activée) implémenté dans un autre Form...
Résultat : Le deuxième Form ne s'affiche pas correctement et le ProgressBar ne bouge pas.
Une idée ?
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
procedure TForm1.Button1Click(Sender: TObject);
var i : Integer;
begin
  Form2.Show;
  for i := 0 to 3000 do
    begin

        Button1.Caption := 'Patientez svp.';
        Button1.Caption := 'Patientez svp..';
        Button1.Caption := 'Patientez svp...';

    end;

  Form2.Close;
  Button1.Caption := 'Démarrer' ;
end;