Couper et memo [Résolu]

MoveX
Messages postés
230
Date d'inscription
vendredi 9 mai 2003
Dernière intervention
16 juillet 2005
- 20 nov. 2004 à 15:56 - Dernière réponse : arnaud_tournier
Messages postés
35
Date d'inscription
jeudi 16 septembre 2004
Dernière intervention
25 mars 2007
- 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
Messages postés
1237
Date d'inscription
samedi 8 novembre 2003
Dernière intervention
3 septembre 2006
- 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é 94 internautes ce mois-ci

Commenter la réponse de cs_grandvizir
JulioDelphi
Messages postés
2354
Date d'inscription
dimanche 5 octobre 2003
Dernière intervention
18 novembre 2010
- 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
Messages postés
35
Date d'inscription
jeudi 16 septembre 2004
Dernière intervention
25 mars 2007
- 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.