Discussion :

[Runlevel]

Bonsoir, désolé si ma question peut vous sembler triviale mais je n'ai pas trouvé de réponse à ce sujet.
Mon problème est très simple: comment peut-on faire pour que le texte d'un RichEdit ne soit pas sélectionnable, et que le curseur clignotant (vous savez, celui comme dans n'importe quel éditeur de texte) n'apparaisse pas lorsque l'on clique sur le texte.
Et ce, bien entendu, sans avoir à positionner la propriété Active du composant à false.
Pour un exemple concret, regardez dans le logiciel Builder C++ => Help => About.
Vous voyez tout en bas dans le RichEdit, le texte qui commence par "Copyright.... etc" ?
Et bien le composant est actif puisque l'on peut déplacer la scrollbar, mais son contenu n'est pour autant pas sélectionnable, et lorsque l'on clique dessus il ne se passe rien.
Voilà exactement le style de comportement que je cherche à reproduire.

Quelle(s) propriété(s) dois-je modifier pour parvenir à mes fins ?
Merci par avance pour vos réponses.

[Trap D]

Salut
Essaie ce code, il empêche la sémection de texte.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
RichEdit1->OnSelectionChange = RichEdit1SelectionChange;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RichEdit1SelectionChange(TObject *Sender)
{
   RichEdit1->SelStart = 0;
   RichEdit1->SelLength = 0;
}

[Runlevel]

Bonsoir Trap D.
D'abord merci de ta réponse. Je me suis mal exprimé je crois, en fait ce n'est pas tant le fait que le texte soit sélectionnable qui me dérange, mais beaucoup plus le curseur que je vois sans cesse clignoter et qui m'agace au plus haut point lol.
Je cherche un moyen de le faire disparaitre à tout prix, un genre de RicheEdit->Curseur->Visible = false tu vois le truc :p

Alors peut-être suis-je sur la mauvaise voie et que le composant dans la partie "Help=>About" de BCB n'est pas un RichEdit, mais ça m'en a tout l'air..
Je continue à chercher, et merci qd même pour l'astuce Trap D.

[Trap D]

Salut
D'accord, j'ai compris, essaie ce bout de code:

Code :

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

1
2
3
4
void __fastcall TForm1::RichEdit1Enter(TObject *Sender)
{
    ActiveControl = Button1;
}

Sur l'évènement OnEnter, donne le focus à un autre control.

[Runlevel]

Rebonsoir Trap D.
Magnifique ! Simple et élégante, ta solution marche parfaitement. Je n'aurais pas trouvé seul où alors après bien des recherches. Tu viens de me faire gagner pas mal de temps :p

Merci encore, bonne fin de soirée à toi et au plaisir.
Run.