TRichEdit: écriture en gras dans constructeur = incompatible?

Bonjour,

J'ai un petit problème avec un TRichEdit. J'utilise BCB 6.

Voici comment reproduire le problème:

* Créez un nouveau projet "Application"
* Dans la form, placez un TRichEdit
* Ajoutez les lignes suivantes dans le constructeur de la form proncipale:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { RichEdit1->SelAttributes->Style = RichEdit1->SelAttributes->Style << fsBold; //set bold style RichEdit1->Lines->Add("Test 1"); RichEdit1->SelAttributes->Style = RichEdit1->SelAttributes->Style >> fsBold; //reset bold style RichEdit1->Lines->Add("Test 2"); }

---

* Executez l'application: => "Test 1" n'apparait pas en gras!
* Maintenant, créez un évenement OnShow pour la form principale.
* Déplacez dans cet évenement le code précedemment écrit dans le constructeur.
* Executez l'application: => "Test 1" apparait bel et bien en gras

Ma question:
Pourquoi ce code ne fonctionne pas comme souhaité dans le constructeur?
Et surtout, est-il possible de le faire fonctionner dans le constructeur?

D'avance merci pour vos idées

Benjamin

Re, c'est encore moi,

Je viens de résoudre mon problème.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { RichEdit1->SelText = ""; RichEdit1->SelAttributes->Style = RichEdit1->SelAttributes->Style << fsBold; //set bold style RichEdit1->Lines->Add("Test 1"); RichEdit1->SelAttributes->Style = RichEdit1->SelAttributes->Style >> fsBold; //reset bold style RichEdit1->Lines->Add("Test 2"); }

---

Bizarre, bizarre, mais ça marche, c'est le principal ;)

Benjamin