Bonsoir,

Je souhaite copier le style d'un richedit à un autre quand je selectionne du texte. Ce code fonctionne bien mais le probleme c'est que le richedit2 garde toujours le style de richedit1 meme aprés la sélection. Par exemple je selectionne un mot et je décide de le souligner, le mot du rich edit 2 est souligné aussi mais aprés je continue à écrire normalement (sans style) dans le richedit1 mais le richedit2 écrit toujours en souligné. COmment faire pour annuler la recopie de style une fois que l'on a fini la sélection.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
procedure TForm1.RichEdit1Change(Sender: TObject);
begin
RichEdit2.Text := RichEdit1.Text;
RichEdit2.SelStart := RichEdit1.SelStart;
RichEdit2.SelLength := RichEdit1.SelLength;
RichEdit2.SelAttributes.Style := RichEdit1.SelAttributes.Style;
 
 
 
end;
Merci