form menu system action en cours

Bonjour, je souhaite empêcher les utilisateurs de quitter lorsque le programme travaille, au démarrage d'une tâche je met

Code:

---

mafiche.BorderIcons := [];

---

mais sa désactive pas les boutons, alors que si je les met à false dans l'inspecteur d'objet sa fonctionne. Pourtant c'est bien la même proprièté c'est bizarre sa ou c'est moi:?

j'ai essayé ave un boutton sa fait rien:

Code:

---

1 2 3 4

procedure TfmPrinc.Button1Click(Sender: TObject); begin Main.BorderIcons := []; end;

---

j'ai trouvé sa dans la faq: http://delphi.developpez.com/faq/?pa...oquerfermeture
c'est mieux que désactiver les icônes non?

Bonjour,

Tu peux aussi lancer une fenêtre en ShowModal, dont le bouton de fermeture... ;)

Il y a un événement sur la fiche pour cette situation, OnCloseQuery:

Code:

---

1 2 3 4

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean); begin CanClose := not TacheActive; end;

---

la méthode de la faq va bien, sauf que je met à true dans le formcreate
et false au début d'un travail et true à la fin

sinon sa désactive les icônes et menu tous le temps.

et pour les icônes sa fonctionne pas à cause du composant vclskin si je le désactive les icônes disparaisse bien.

j'ai posté trop vite désolé:fessee: