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

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 598 fois - Téléchargée 1 945 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

Messages postés
1
Date d'inscription
dimanche 4 avril 2004
Statut
Membre
Dernière intervention
4 avril 2004

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...)
Messages postés
71
Date d'inscription
mercredi 8 janvier 2003
Statut
Membre
Dernière intervention
24 février 2012

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.