Insérer du text la ou l'on clique sur un richedit

0/5 (2 avis)

Snippet vu 5 806 fois - Téléchargée 1 947 fois

Contenu du snippet

J'avais vu ca quelque part demandé sur le forum, j'y avait répondu avec un code complexe alors qu'en faite c'est tous simple:
ca ajoute un du text la ou l'on clique dans un Richedit(ou Memo)

Source / Exemple :


procedure TForm1.RichEdit1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

//dans la procedure MouseUp
RichEdit1.SelText := 'ICI';

end;

A voir également

Ajouter un commentaire Commentaires
fobia
Messages postés
1
Date d'inscription
dimanche 4 avril 2004
Statut
Membre
Dernière intervention
4 avril 2004

4 avril 2004 à 04:05
Ca marche... (Delphi 7)
c'est pas trés top mais ca marche....

ca marche avec tout les objets qui ont la propiétée SelText
(Tedit Tmemo ect...)
cs_subzero
Messages postés
71
Date d'inscription
mercredi 8 janvier 2003
Statut
Membre
Dernière intervention
24 février 2012

19 oct. 2003 à 12:42
Marche pas... :-(
à+

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.