Discussion :

[Teddy]

Bojour,

Mon application fait des calculs en boucles qui peuvent durer assez longtemps.

Si, par erreur, l’utilisateur clique sur la croix de fermeture de la fenêtre, l’application se termine et tout est à recommencer.

J’ai pensé à utiliser l’évènement OnCloseQuery, mais je ne vois pas quel code y placer pour annuler la fermeture.

Déjà, d’après vous, est-il possible d’annuler la fermeture de l’application après un clic sur la croix ? Désolé si ma question peut paraître stupide…

[Cl@udius]

Salut

OnCloseQuery correspond bien à ton besoin.
Un petit coup de et l'aide t'aurait donné cet exemple d'utilisation.:

Code :

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

1
2
3
4
5
6
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg('Close the form?', mtConfirmation,
    [mbOk, mbCancel], 0) = mrCancel then
     CanClose := False;
end;

Il suffit donc de définir la valeur du paramètre CanClose pour autoriser/interdire la fermeture de l'application.

@+ Claudius

[Teddy]

Oups !!

Merci pour cette réponse rapide.
J'avais pourtant actionné F1, mais je suis passé à côté de cette réponse...