[RÉSOLU] ON_CLOSE : interrompre processus fermeture fenêtre

Bonjour,

Encore moi qui vient squatter le forum.

Comment, après l'interception d'un événement ON_CLOSE, empêcher la fenêtre de se fermer ?

Code:

label quitter
on_close 0,quitter

quitter:
    if MESSAGE_CONFIRMATION_YES_NO("Confirmez-vous vouloir quitter ?" = 2
       ' on annule la fermeture de la fenêtre
    end_if
return

Je crois savoir que sur ON_CLOSE la fermeture est inéluctable, on peut seulement la différer.

Effectivement, ON_CLOSE ferme la fenêtre quoiqu'il arrive.
Sa vocation, est de passer par un sous-programme (type LABEL) pour faire des tâches avant de fermer.
Exemple: message "à bientôt".

Mais tu as peut-être la solution ici => https://panoramic.1fr1.net/t4744-desactiver-activer-la-croix-x-de-fermeture-d-un-form-et?highlight=d%E9sactiver

A+

Jean Claude a écrit:

Effectivement, ON_CLOSE ferme la fenêtre quoiqu'il arrive.
Sa vocation, est de passer par un sous-programme (type LABEL) pour faire des tâches avant de fermer.
Exemple: message "à bientôt".

Mais tu as peut-être la solution ici => https://panoramic.1fr1.net/t4744-desactiver-activer-la-croix-x-de-fermeture-d-un-form-et?highlight=d%E9sactiver

A+

Merci pour la solution. Je vais toutefois m'en passer car je m'efforce de créer un éditeur en PUR PANORAMIC, donc sans DLL externe qui interdirait l'utilisation du code sur une autre plateforme. Je compte sur Jack pour petit à petit bonifier PANORAMIC, quitte à imposer des limites à mon éditeur

Effectivement, en Delphi, ainsi qu'avec les APIs de Windows, il y a un évènement ON_CLOSE qui offre un paramètre par lequel on peut signaler à Windows si l'on accepte la fermeture un non. Pour l'évènement ON_CLOSE, Jack n'a pas mis à disposition un mécanisme permettant de bénéficier de cette possibilité qui existe pourtant au niveau système. Il le fera peut-être.

Mais je peux te proposer une solution, en 100 % Panoramic:

Code:

label sortir
form 1 : border_hide 1
button 2 : parent 2,1 : caption 2,"Sortir" : on_click 2,sortir
left 0,0-2000
end

sortir:
  if message_confirmation_yes_no("Sortir vraiment ?")=1 then terminate
  return

Tu vois le principe:
1. la form 0 n'est jamais visible, tout est affichée dans une autre form (ici, la form 1)
2. la form visible est avec BORDER_HIDE, ainsi, pas de croix rouge
3. tu places un picture sur la form visible dans lequel tu dessines le bord que tu souhaites
4. tu places tous tes objets dans cette form visible au lieu de la form 0 (ici, le bouton 2).

Ainsi, tu maîtrises parfaitement la sortie du programme - seul le gestionnaire des tâches peut le tuer.

C'est pas couillon du tout --- Je teste de suite !!!