Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 654 fois - Téléchargée 1 945 fois
procedure TForm1.RichEdit1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin //dans la procedure MouseUp RichEdit1.SelText := 'ICI'; end;
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...)
à+
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.