Bonjours,
Je cherche comment faire agrandir le caret a la position où il se trouve avant de taper les caractères!
C'est-à-dire si par example le text dans mon richedit est '123456' et le caret position est entre 3 et 4. et si je pousse sur mon bouton1 pour changer la "Font seize" plus grands (de 8 à 24) j'aimerais bien que le caret a ce moment vient en seize 24.
Dans mes tests le caret change à size 24 seulement si je frappe un caractère.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6 procedure TForm1.Button13Click(Sender: TObject); begin Form1.RichEdit1.SelAttributes.Size := 24; form1.RichEdit1.SetFocus; end;
Je fais le test dans Office Word et là ça fonctionne correctement.
Par quelle façon puis-je faire cela. Merci beaucoup pour votre aide.
Partager