Discussion :

[Debure]

Bonjour,

Je suis en train de créer des composants et le tutoriel m'aide beaucoup à comprendre leur programmation. Aujourdhui, je suis bloqué sur 2 points :
Comment mettre la propriété ModalResult dans le programme du composant ?

__property ModalResult; me génére une erreur !!!

Comment traiter le caractéres "&" dans le Caption pour obtenir le raccourci clavier

Merci de votre aide

[Neilos]

Code :

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

__property TModalResult ModalResult;

[Debure]

Merci de votre aide,

J'ai rentré le code: affichage d'erreur d'initialisation!!

J'ai modifier le code en ajoutant :

Code :

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

1
2
3
4
5
6
TModalResult FModalResult;
...
...
...
__property TModalResult ModalResult =  {read=FModalResult,
write=FModalResult, default=0};

Je n'ai plus d'erreur...

Mais il me reste à résoudre le problème du ModalResult qui ne fonctionne pas ( pas de sortie de la fiche Modal sur le click du bouton) et je n'ai pas l'énumération dans la propriété ModalResult .

Code :

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

enum ????? {mrNone, mrOk, mrCancel, mrAbort, mrRetry, mrIgnore, mrYes, mrNo, mrAll, mrNoToAll, mrYesToAll};

Pouvez-vous m'aider ?

[Neilos]

Je ne comprend pas votre problème d'énumération.

Pour que la votre fenêtre se ferme je pense qu'il vous faut plutôt procéder comme cela :

Code :

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

1
2
3
4
5
6
TModalResult FModalResult;
...
...
...
__property TModalResult ModalResult =  {read=FModalResult,
write=SetModalResult, default=0};

Avec SetModalResult :

Code :

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

1
2
3
4
5
6
7
8
9
10
void __fastcall maform::SetModalResult (TModalResult value)
{
   if ( value != FModalResult )
   {
      if ( value != mrNone )
          this->Close();
 
      FModalResult = value;
    }
}

[Debure]

Avec le bouton fourni avec Borland, dans la propriété ModalResult, le choix se fait par une liste ( mrOk, mrCancel, etc.. ) et c'est ça que je veux faire. Mais comment ????

Je vais essayer ton code ce soir

Merci

[slylafone]

Je vois plutôt les choses comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
void __fastcall moncomposant::SetModalResult (TModalResult value)
{
   FModalResult = value;
}
 
void __fastcall moncomposant::Click ()
{
   if (FOnClick) FOnClick(this);
   TForm *pForm = dynamic_cast<TForm *> Parent;
   if (pForm != NULL) pForm->ModalResult = FModatResult; //code simplifié, car suppose que le control parent est de type TForm. Sinon faire une recherche récursive.
}

[Neilos]

Ah...moi je pensais qu'il écrivait un descendant de TForm pour vouloir y mettre une propriété ModalResult....

Effectivement si ce n'est pas le cas je suis d'accord avec toi slylafone !

[Debure]

Voici pour que la propriété ModalResult fonctionne dans le composant bouton TYDFigureBtn

Dans le fichier TYDFigureBtn.h

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
protected:
-
-
void __fastcall SetModalResult(TModalResult Value);
DYNAMIC void __fastcall Click(void);
-
-
__published:
-
-
__property TModalResult ModalResult = {read=FModalResult,
                                                        write=SetModalResult, default=0};

Dans le fichier TYDFigureBtn.cpp

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
//---------------------------------------------------------------------------
void __fastcall TYDFigureBtn::SetModalResult(TModalResult Value)
{
        FModalResult = Value;
}
//---------------------------------------------------------------------------
void __fastcall TYDFigureBtn::Click()
{
        if(OnClick) OnClick(this);
        TForm *pForm = dynamic_cast<TForm *> (Parent);
        if(pForm != NULL) pForm->ModalResult = FModalResult;
}

Neilos et slylafone, je vous remercie pour votre aide

Mais il me reste à résoudre le Caption de ce bouton avec le & pour raccourci clavier