Discussion :

[Baxter67]

Bonjours, dans le cadre d'un proget jai sur une form principale un richEdit qui affiche des message en fonction de l'etat de certaine variable (lue dans un automate)

Et bien sur je n'ai pas qu'une seul form , jen ai une quinzaine
Je souhaiterais qu'il y ai le rich edit sur chaque form (il affiche axactement la meme chose).
Y a til un moyen de le faire sans devoir tapé le meme code pour chaque richedit ?

pour info je géree les couleur ausi dans le richedit

Cordialement Baxter

[Baxter67]

jai eseyé sa
dans un thread ki "mouline" en permanence dans une while infini

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
while(1)
{
  if(Form6->Visible==true)
  {
    Form1->RichEditMess->SelectAll();
    Form1->RichEditMess->CopyToClipboard();
    Form6->RichEditMess->Clear();
    Form6->RichEditMess->PasteFromClipboard();
  }
  Sleep(750);
}

Bien Entendu ce thread ne fais pas que sa, il actualise l'affichage de pas mal de label en utilisant ce qui est lu dans l'automate
mais bon je sais pas si c le mieux

[Gilles Louïse]

Ça me paraît compliqué pour rien. Le mieux me paraît être de créer un tableau de pointeurs vers vos RichEdit (si ce n'est déjà fait) et de modifier les RichEdit au moment du OnChange du RichEdit principal. Donc par exemple, pour trois pointeurs, vous déclarez un tableau dans la classe principale :

Code :

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

TRichEdit* TabRE[3];

Vous renseignez les adresses au moment où c'est possible (au moment où les RichEdit sont déjà créés), par exemple, si vos formes se construisent au début, au moment du OnShow de la forme principale :

Code :

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

1
2
3
TabRE[0]=Form2->RichEdit1;
TabRE[1]=Form3->RichEdit1;
TabRE[2]=Form4->RichEdit1;

Sauf si cette table existe déjà, ce qui serait le mieux quand on traite un grand nombre de formes. Dans ces conditions, au moment du OnChange du RichEdit de la forme prinicipale, vous mettez à jour tous les RichEdit

Code :

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

1
2
3
4
void __fastcall TForm1::RichEdit1Change(TObject *Sender)
{
for(int i=0;i<3;i++) TabRE[i]->Text=RichEdit1->Text;
}

À bientôt
Gilles

[Baxter67]

ta méthode est bien
et elle fonctionne
mais sa ne garde pas les couleur

[Baxter67]

comme sa sa fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
void __fastcall TForm1::RichEditMessChange(TObject *Sender)
{
        for(int i=0;i<2;i++)
        {
                RichEditMess->CopyToClipboard();
                TabRE[i]->Clear();
                TabRE[i]->PasteFromClipboard();
        }
}

mais bon, c'est bien ?

[Baxter67]

ah non, sa ne marche pas, sa m'en copie que une

si je fais un select all avant jai une erreur qui est généré quand je ve inséré une ligne avec mon thread qui rafraichie le RichEdit pricipale

[Gilles Louïse]

C'est pénible de devoir passer par le ClipBoard mais je ne vois pas d'autres solutions.

Si quelqu'un sait comment copier les couleurs aussi d'un RichEdit à un autre, il sera lu avec plaisir.

Sinon, procédez ainsi, ça marche :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
void __fastcall TForm1::RichEdit1Change(TObject *Sender)
{
int Sta,Len;
 
Sta=RichEdit1->SelStart;
Len=RichEdit1->SelLength;
RichEdit1->SelectAll();
RichEdit1->CopyToClipboard();
for(int i=0;i<3;i++)
   {
   TabRE[i]->Clear();
   TabRE[i]->PasteFromClipboard();
   }
RichEdit1->SelStart=Sta;
RichEdit1->SelLength=Len;
}

Il faut mémoriser la sélection et la longueur en cours et la restituer après pour ne pas perturber le comportement du RichEdit qui a subi un SelectAll dans l'opération.

À bientôt
Gilles

[Baxter67]

effectivement sa fonctionne très bien

merci beaucoup

Baxter