Sujet Précédent Sujet Suivant

RitchEdit

cs_MAsterC Messages postés 217 Date d'inscription lundi 4 février 2002 Statut Membre Dernière intervention 19 décembre 2012 - 5 sept. 2003 à 00:43
cs_hamza Messages postés 22 Date d'inscription lundi 2 décembre 2002 Statut Membre Dernière intervention 28 octobre 2010 - 25 mars 2013 à 11:29
Salut a tous!

Pourtant après avoir essayer toute les manières de procédé les tantives on échoué :( Alors voici mon probleme.

Dans mon RichEdit, quand je veux ajouter du text à partir d'un bouton....

RichEdit.Lines.Add('Allo');

Cette procédure marche! mais le probleme c'est que quand le texte va s'ajouter au RichEdit, il s'ajoute toujours à la fin.... Mais moi Je voudrai qu'il s'ajoute en fonction du positionnement de mon curseur ( | ) dans le RichEdit.

Merci d'avance.



- MAsterC -

3 réponses

Réponse 1 / 3
cs_darkduck Messages postés 138 Date d'inscription vendredi 28 février 2003 Statut Membre Dernière intervention 29 février 2008 1
5 sept. 2003 à 13:26
C tout simple :

RichEdit1.SelText:='Allo';

Voila
0
Réponse 2 / 3
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
5 sept. 2003 à 18:35
Les lignes d'un contrôle TRichEdit (Lines) sont du type TStrings.
Tu peux donc utiliser les méthodes Insert, Delete, Move pour insérer du texte, supprimer une ligne ou la déplacer. Il suffiet juste de connaitre la position du curseur.
Voir source publié récemment sur l'utilisation de CaretPos si tu as besoin.
May Delphi be with you
0
Réponse 3 / 3
cs_hamza Messages postés 22 Date d'inscription lundi 2 décembre 2002 Statut Membre Dernière intervention 28 octobre 2010
25 mars 2013 à 11:29
voici ce que j'ai trouver.

procedure TForm1.Button1Click(Sender: TObject);
var
C:Cardinal;
M:TPoint;
S :string;
begin

S:='MonText';
C:=memo1.Perform(EM_CHARFROMPOS,0,DWORD(@M));
Memo1.Perform(EM_SETSEL,C,C);
memo1.Perform(EM_REPLACESEL,0,DWORD(PChar(S)));
memo1.SetFocus;
end;
0
Rejoignez-nous