zeydounnounou
Messages postés14Date d'inscriptionvendredi 8 janvier 2010StatutMembreDernière intervention 4 juin 2010
-
13 avril 2010 à 17:57
zeydounnounou
Messages postés14Date d'inscriptionvendredi 8 janvier 2010StatutMembreDernière intervention 4 juin 2010
-
14 avril 2010 à 12:04
Bonjour,
mon problème est le suivant :
je veux inserer du texte dans un richedit exactement à la position du curseur(le truc qui clignotte dans le richedit)sachant que je travaille avec delphi 2
ThWilliam
Messages postés418Date d'inscriptionmardi 3 janvier 2006StatutMembreDernière intervention26 novembre 20134 14 avril 2010 à 11:47
Bonjour.
Voici un exemple : j'utilise pour insérer un SpeedButton, afin que le RichEdit ne perde pas le focus.
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
S: string;
Start: integer;
begin
S:= 'SUM()';
with RichEdit1 do
begin
Start:= SelStart; // mémorise la position du curseur
SelLength:= 0;
SelText:= S;
SelStart:= Start + Pos('(', S);
end;
end;