Discussion :

[nezhaaem]

Bonjour,
je voudrais empecher l'utilisateur de fermer une forme

j'ai cherché la proprété CanClose (pour lui affecter la valeur false) mais je ne la trouve pas!

de plus je ne sais comment l'utiliser avec les evenement OnClose ou OnCloseQuery ....j'ai cherché dans l'aide de code gear mais ce n'est guerre clair!

pourriez vous m'indiquer la maniere d'utiliser ces evenements et propriétés??
Merci

[cedni]

Salut

C est peut être pas ce que tu veux

Form1->BorderIcons->biSystemMenu=false

Ca te fait sauter les boutons mini , max , close mais la barre pour déplacer est conservée , rien ne t empêche de rajouter un petit bouton ou une image pour pouvoir fermer la form au cas échéant


Sinon dans l aide

Code :

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

1
2
3
4
5
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose)
{
CanClose = false;
 
}

[nezhaaem]

Merci pour ton aide
j'ai essayé d'appliquer la premiere solution
j'ai cherché la propriété BorderIcons et j'ai trouvé qu'elle a la fonction Contains qui renvoie true si l'objet TBorderIcon est contenu dans la BorderIcons et false i non
j'ai écrit ça

Code :

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

frmcnslm->BorderIcons.Contains(biSystemMenu)=false;

mais ça me donne l'erreur:
Lvalue nécessaire

Contains n'a pas de Value comme propriété ...

comment faire fonctionner cette méthode??

[totoche76]

Hello,

Code :

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

1
2
3
4
5
6
7
8
// Enlever biSystemMenu:
frmcnslm->BorderIcons = frmcnslm->BorderIcons >> biSystemMenu;
...
// Autre exemple: On ajoute biMaximize:
frmcnslm->BorderIcons = frmcnslm->BorderIcons << biMaximize;
...
// On ne met que biMinimize
frmcnslm->BorderIcons = TBorderIcons() << biMinimize;

[gandf]

On peut faire ainsi :

Code :

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

1
2
3
4
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
Action = caNone;
}

Mais il faut quand même prévoir une action claire pour fermer la fiche. Sinon, l'utilisateur passera par le gestionnaire des tâches.

[nezhaaem]

Merci tout le monde
mais ça ne marche tjrs pas!
j'ai essayé ce code

Code :

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

1
2
3
4
void __fastcall Tfrmcnslm::FormCreate(TObject *Sender)
{
frmcnslm->BorderIcons = frmcnslm->BorderIcons >> biSystemMenu;
}

quant à:

Code :

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

1
2
3
4
void __fastcall Tfrmcnslm::FormClose(TObject *Sender, TCloseAction &Action)
{
Action = caNone;
}

un message dit que :
FormClose(TObject *Sender, TCloseAction &Action)
n'est pas membre de frmcnslm