CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 11 09:18:12

EXPRESSION STUDIO 3 / SILVERLIGHT 3 par Matthieu MEZIL

MICROSOFT SECURITY ESSENTIALS : PETIT TEST par FREMYCOMPANY

ISA LE RETOUR par Isa

DROIDANALYTICS 1.1.4 : TRI DES TOPS PAR PAGES VUES OU VISITES par Nix

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

QUESTION SUR FONCTION ASSIGNED() par solilog

AIDE par nori14

RE : CREER PAGE HTML par sawceno

CREER PAGE HTML par sawceno

THREAD par swadfish

+ de logiciels à télécharger

1 468 230 membres
67 nouveaux aujourd'hui
15 054 membres club

Trouver une ressource

Trouvez une ressource parmi 40 112 codes, 1 305 093 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

INSÉRER DU TEXT LA OU L'ON CLIQUE SUR UN RICHEDIT

Information sur la source

Catégorie :Texte Niveau : Débutant Date de création : 15/07/2002 Date de mise à jour : 15/07/2002 09:47:04 Vu : 2 778

Auteur : fabiin

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (2)

Ajouter un commentaire et/ou une note

Description

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

procedure TForm1.RichEdit1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//dans la procedure MouseUp
RichEdit1.SelText := 'ICI';
end;

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

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

end;