Discussion :

[Letinono]

Bonjour, je souhaite forcer mon programme à se fermer.

J'ai fait un bouton qui génère un évènement puisque celui-ci se trouve sur un autre cadre.

Code :

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

1
2
3
4
5
6
7
8
procedure TFrmMainFrame.Button1Click(Sender: TObject);
var
  monHandle : THandle;
begin
  inherited;
  if Assigned(FOnFinProgramme) then
      FOnFinProgramme(Self);
end;

J'affecte l'évènement de mon bouton à une procedure qui va quitter le programme.

Code :

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

  Frame_principale.onFinProgramme := finProgramme;

J'ai écris le code suivant dans la procedure

Code :

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

1
2
3
4
5
6
7
8
procedure TFormPp.finProgramme(sender: TObject);
begin
  if MessageDlg('Le test en cours va être annulé.',mtCustom,mbOkCancel,0) = 1 then
  begin
    termine := True;
    Application.Terminate;
  end;
end;

Le booléen termine est mis à True et permet de finir la boucle "repeat... until".

Après avoir terminé la boucle, j'ai d'autres actions qui s'exécutent. Pour éviter qu'elles ne s'executent, j'ai mis le code suivant:

Code :

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

1
2
3
4
if not termine then
begin
[...]
end;

Le soucis c'est que la boucle est bien quitté, le code suivant n'est pas executé, comme je le souhaite, mais le programme ne se ferme pas.

J'imagine que le problème vient du fait que le code "application.terminate" ne s'execute pas du fait qu'il reste des actions à finir.

Je ne sais pas trop comment m'y prendre.

J'espère avoir été clair. :p

Merci pour votre aide.

[MedGIR]

Bonjour,

Je pense qu'il y a beaucoup plus simple.

Tu te crée une variable globale booléenne au projet, par exemple on l'appelle 'fTraitement'.

Lorsque ton traitement commence, tu mets fTraitement = true et dès qu'il est terminé tu le mets en false.

Par contre, dans la fiche principale, dans l'evenement OnCloseQuery tu fais quelque chose comme ça.

Code :

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

1
2
3
4
5
6
7
procedure TfMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if fTraitement=true then
    CanClose := ('Traitement en cours, voulez-vous l''annuler?',mtConfirmation,[mbYes,mbNo],0)=mrYes
  else
    CanClose := True; 
end;

[Letinono]

Merci pour ton aide, c'est effectivement beaucoup plus simple