Peut-on mettre à jour TEdit pendant un calcul?

**sys1** · 26/12/2007, 18h30

Voici mon programme, il est très simple vu que je débute. Il consiste à afficher dans une tpaintbox un dégradé de noir vers blanc à l'aide d'une boucle for contenant une variable a.
Le problème est que je voudrais afficher la valeur de a dans TEdit pendant que l'ordinateur trace le graphique, et non pas seulement à la fin comme c'est le cas actuellement.

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
28
29
30
31
32
33
34
35
36
37
38
39
40
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm2 = class(TForm)
    PaintBox1: TPaintBox;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form2: TForm2;
  a:Integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
begin
for a := 0 to 255 do
  begin
     Edit1.text:=Edit1.text+IntToStr(a);
     Canvas.Pen.Color:= RGB(a,a,a);
     Canvas.MoveTo(0, a);
     Canvas.LineTo(300, a);
     sleep(10);
  end;
end;
end.

Lors de l'exécution, le dégradé apparait progressivement mais la fenêtre Edit1 reste désespérement vide... Jusqu'à la fin où il y a marqué 255. Comment faire pour que l'affichage soit mis à jour à chaque ligne de dégradé et pas seulement à la fin?

**ero-sennin** · 26/12/2007, 18h46

Salut,

Avant toute chose, merci de mettre les balises CODE (le # dans la barre d'édition) lorsque tu mets du code

Ensuite, il suffit de faire un Application.ProcessMessages pour que Windows puisse traiter la file d'attende des messages.

Ce qui donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
begin
  for a := 0 to 255 do
  begin
  Edit1.text:=Edit1.text+IntToStr(a);
  Application.ProcessMessages;
  PaintBox1.Canvas.Pen.Color:= RGB(a,a,a);
  PaintBox1.Canvas.MoveTo(0, a);
  PaintBox1.Canvas.LineTo(300, a);
  sleep(10);
  end;
end;

Attention, je ne sais pas si j'ai fait une erreur, mais j'ai mis PaintBox1 devant les Canvas, sinon, tu dessines sur la fiche principal et non sur la PaintBox

Ensuite, je ne sais pas si c'est Edit1.text := Edit1.text+IntToStr(a).
Je pense que tu veux juste afficher a donc un simple Edit1.Text:=IntToStr(a) suffit.

En espérant avoir répondu à tes attentes
A+

**tourlourou** · 26/12/2007, 18h48

Bienvenue !

Actuellement, ton code ajoute dans l'Edit chaque valeur de a, à la suite (Edit1.Text:=IntToStr(a); suffirait pour la valeur courante).

Après affecter l'Edit, une instruction style Edit1.Refresh ou Application.ProcessMessages devrait donner du temps à windows pour la MAJ de l'Edit.

[EDIT = il y était ! désolé]Et pour temporiser entre les lignes, un petit Sleep(xxx); en fin de boucle mettrait une pause de xxx millisecondes

Bon code