Couper et memo [Résolu]

MoveX 230 Messages postés vendredi 9 mai 2003Date d'inscription 16 juillet 2005 Dernière intervention - 20 nov. 2004 à 15:56 - Dernière réponse : arnaud_tournier 35 Messages postés jeudi 16 septembre 2004Date d'inscription 25 mars 2007 Dernière intervention
- 21 nov. 2004 à 09:58
j arrive pas a utiliser la fonction couper d un memo lorsqu il est en readonly, faut il que je desactive le readonly, puis faire cutoclipboard et enfin que je reactive le readonly? ou y a til une autre methode?
Afficher la suite 

Votre réponse

3 réponses

Meilleure réponse
cs_grandvizir 1237 Messages postés samedi 8 novembre 2003Date d'inscription 3 septembre 2006 Dernière intervention - 20 nov. 2004 à 19:15
3
Merci
Il y a une ruse.

Déclarer une variable S et noter:
S:=RichEdit.Text;

Utiliser Copy ou Delete pour éliminer la partie de code non désirée. Pour la mettre dans le ClipBoard, déclarer uses ClipBrd; et écrire ClipBoard.AsText:=LeTexteCoupé; Il faut s'aider des propriétés SelStart, SelLength et SelText du RichEdit.

Et là, normalement, même en ReadOnly, il est possible de mettre RichEdit.Text:=s; Il faudra éventuellement retoucher la position du curseur avec SelStart.

Ainsi le ReadOnly n'a pas changé. Ceci dit, il n'est pas assuré que cela marche. Je sais, tu utilises un Memo, mais ça doit marcher pareil qu'avec un RichEdit.

===========
Validez les réponses si ok...

ViewVite : HTML - ZIP

Merci cs_grandvizir 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 97 internautes ce mois-ci

Commenter la réponse de cs_grandvizir
JulioDelphi 2354 Messages postés dimanche 5 octobre 2003Date d'inscription 18 novembre 2010 Dernière intervention - 20 nov. 2004 à 16:46
0
Merci
En toute logique, c la seule methode ! puisque "readonly" veut dire "seulement lecteur" la modification n'est donc pas permise.

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! ;)

-------------------------------------------
http://diabloporc.free.fr : mon site refait ! Delphi power !
Commenter la réponse de JulioDelphi
arnaud_tournier 35 Messages postés jeudi 16 septembre 2004Date d'inscription 25 mars 2007 Dernière intervention - 21 nov. 2004 à 09:58
0
Merci
Hello,

Oui grandVizir a raison, il faut que tu fasses =>

Memo1.CopyToClipboard;
Memo1.SelText := '';

pour simuler un couper quand on est en readOnly....

trape le onkeypress =>

procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssCTrl in Shift) and (key in [88,120]) then // 88 X et 120 x
begin
Memo1.CopyToClipboard;
Memo1.SelText := '';
end;
end;

et voilou ton couper est fait comme si ton memo n etait ^pas en readonly mais c est un peu bizarre de vouloir modifier le contenu d un objet que l on veut en lecture seul enfin n'hésite pas si tu veux plus de détail....

Arnaud
Commenter la réponse de arnaud_tournier

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.