Discussion :

[Naga2]

Bonjour,

J'ai un petit souci sous Delphi pour Win32.

Dans mon code, j'ai une boucle qui doit tourner un très grand nombre de fois.

Mais lors de ce traitement, l'interface de mon application se fige.

Je souhaiterais mettre à disposition de l'utilisateur du programme un bouton pour annuler le traitement (ou action sur le bouton [Echap] du clavier).

Comment puis je m'y prendre ?

Si vous avez une solution simple, car je débute en Delphi.

Peut être placer la boucle dans un thread spécifique ? Comment fait-on ?

Libérer des ressources pour l'interface ?

Je vous remercie de votre aide.

Par contre, je dois présenter une 1ère version opérationnelle de mon application pour début de semaine prochaine donc si je pouvais avoir un peu d'aide rapidement, je vous en serait reconnaissant.

Merci bien

Cordialement,

Naga

[Tsimplice]

Salut, pour mieux débuter je crois qu'il faut télécharger la FAQ. Il y a la réponse à ta question dedans.

[Naga2]

Oki, je vais matter, je te remercie.

Naga

[ALT]

En particulier, regarde du côté de keypressed. Ça devrait te permettre d'avancer.

[Naga2]

Salut,

J'utilise la méthodologie suivante (indiquée dans la FAQ) avec une ProgressBarre. :

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
var
  I : Integer;
  Stop : Boolean;
 
procedure TForm_Principale.Button_ChargerGWSClick(Sender: TObject);
begin
  Stop := False;
  While (I < Memo_FichierGWS.Lines.Count) do
  begin with ProgressBar_AnalyseFichierGWS do
    if (Stop = True) then begin break; Exit; end;
    ProgressBar_AnalyseFichierGWS.Position := I;
    // ...
 
    Application.ProcessMessages;
    Inc(I);
  end;
 
procedure TForm_Principale.Button_AnnulerChargementClick(Sender: TObject);
begin
  Stop := True;
  ProgressBar_AnalyseFichierGWS.Position := 0;
end;

Apparement ça marche bien, je vais aussi matter keypressed.

Sinon pour le bouton [Echap], j'utilise un événement dans ma form :

Déclaration de la procédure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 
procedure TForm_Principale.FormCreate(Sender: TObject);
begin
  KeyPreview := True;
  ...
end;
 
procedure TForm_Principale.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = VK_ESCAPE) then Form_Principale.Btn_Quitter.Click; //Application.Terminate;
end;

Penser à associer cette procédure dans l'événement "OnKeyDown" de la form.





Sinon une autre petite question, est-il possible de récupérer la date (et heure) de la compilation pour l'intégrer dans un Tlabel par exemple ?
Ca me permettra de gérer (en plus de la version) l'historique de mon EXE.

[Andnotor]

L'Exit ne sera jamais appelé après le Break ! Tu peux supprimer l'un des deux.
Et même simplifier l'ensemble (le with ne sert manifestement à rien):

Code :

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

1
2
3
4
5
6
7
8
9
10
Stop := False;
I := 0;
 
While (I < Memo_FichierGWS.Lines.Count) and not Stop do
begin 
  ProgressBar_AnalyseFichierGWS.Position := I;
  // ...
  Application.ProcessMessages;
  Inc(I);
end;

Penser à associer cette procédure dans l'événement "OnKeyDown" de la form.

Utilise OnKeyUp sinon ton événement vas être appelé sans discontinuer si tu gardes la touche pressée .

Regarde FileAge pour l'heure/date de compilation.