Discussion :

[ouiouioui]

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

Code :

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

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 :

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

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?

[Droïde Système7]

Bonjour,

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

[Andnotor]

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

Code :

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

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

[ouiouioui]

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é