[BCB6] probleme avec zone d'edition et onExit/onEnter

Bonjour,

Je vous explique brièvement ce que je souhaite obtenir. Je dispose de
plusieurs zone d'edition (TEdit) sur ma fiche et je souhaiterais changer
l'aspect de la zone d'édition quand elle a le focus. Si ne change que la
couleur de fond avec par exemple

void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
Edit1->Color = clRed;
}
//--------------------------------------------------------------------------
-
void __fastcall TForm1::Edit1Exit(TObject *Sender)
{
Edit1->Color = clBlue;

}

tout fonctionne correctement. Mais ce que j'aurais voulu, c'est changer la
propriété BorderStyle du composant TEdit, en la faisant passer de bsNone
quand il n'est pas sélectionné à bsSingle quand on entre dedans. J'ai donc
fait :

void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
Edit1->BorderStyle = bsSingle;
}
//--------------------------------------------------------------------------
-
void __fastcall TForm1::Edit1Exit(TObject *Sender)
{
Edit1->Color = bsNone;

}

et là, c'est plus bon du tout car le pointeur de la souris n'est plus
visible et je ne peux plus sélectionner le texte. De plus, quelquesoit
l'endoit de mon texte dans le TEdit ou je clique, le pointeur souris "doit
etre" (je ne le vois pas !) a la premier place.
Est ce que vous pouvez m'expliquer pourquoi j'ai ce comportement (je suis
loin d'etre un pro en programmation) et comment je peux arriver à obtenir ce
que je souhaite (à moins que ce ne soit pas possible mais j'en doute).
Merci d'avance de votre aide.

Christophe.