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

Commenter

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

S'inscrire maintenant

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.

Du même auteur (fabiin)