création de composants

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

Code:

---

__property TModalResult ModalResult;

---

Merci de votre aide,

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

J'ai modifier le code en ajoutant :

Code:

---

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:

---

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

---

Pouvez-vous m'aider ?

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:

---

1 2 3 4 5 6

TModalResult FModalResult; ... ... ... __property TModalResult ModalResult = {read=FModalResult, write=SetModalResult, default=0};

---

Avec SetModalResult :

Code:

---

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; } }

---

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

Je vois plutôt les choses comme ça :

Code:

---

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. }

---

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 !

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

Dans le fichier TYDFigureBtn.h

Code:

---

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:

---

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