Ecrire sous le curseur... [Résolu]

eldred 32 Messages postés mercredi 14 septembre 2005Date d'inscription 14 juin 2006 Dernière intervention - 15 nov. 2005 à 14:52 - Dernière réponse : eldred 32 Messages postés mercredi 14 septembre 2005Date d'inscription 14 juin 2006 Dernière intervention
- 16 nov. 2005 à 21:31
Bonjour,
voila j'ai besoin que lorsque l'utilisateur clique sur un bouton, un texte s'écrive automatiquement dans un Tmemo, sous le cuseur, mais il ne doit aps effacer le texte qui s'y situe déja... Aidez moi please...
Afficher la suite 

Votre réponse

2 réponses

Meilleure réponse
f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention - 15 nov. 2005 à 15:02
3
Merci
var

S : string;



begin



// on recupere le texte de la ligne en court

S := memo1.lines[memo1.CaretPos.Y];

// on insert le texte a la position du curseur

insert( 'texte a inserer', S, memo1.CaretPos.X+1);

// on place le nouveau texte a la place de la ligne existante

memo1.lines[memo1.CaretPos.Y] := S;



end;

Merci f0xi 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 93 internautes ce mois-ci

Commenter la réponse de f0xi
eldred 32 Messages postés mercredi 14 septembre 2005Date d'inscription 14 juin 2006 Dernière intervention - 16 nov. 2005 à 21:31
0
Merci
Merci bcp, ca marche super :)
Commenter la réponse de eldred

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.