Pas de sélection dans un Memo.Résolu

Question

Salut les gars,



je voulais juste savoir s'il yav&#233; une propri&#233;t&#233; chez un Memo ou un Edit
qui permet d'interdire la s&#233;lection du texte par l'utilisateur.



merci &#224; vous d'avance.

neodelphi · Accepted Answer

Tu peut pas entrer du texte dans une scrollbox... Ce qu'il faut faire c'est placer ta scrollbox, et crer un label dedans... tu met la propri&#233;t&#233; align du label en alTop et la propri&#233;t&#233; wordwrap &#224; true, puis tu met le texte du label comme je te l'ai indiqu&#233; plus haut... Si la taille du label deviend trop importante des scrollbars vont etre affich&#233;es dans ta scrollbox.

Si ton texte est immense tu ne pourra peut-etre pas le mettre dans ton label comme je l'ai fait plus haut... A ce moment la je te conseille de sauvegarder ton texte dans un fichier texte puis de le charger dans le programme (&#231;a fait plus "pro").

neodelphi

cs_grandvizir · Answer

Non. Essaye un truc du genre:

procedure TForm1.MemoOnChange(Sender:TObject);
begin
  Memo1.SelLength:= 0;
 end ;

 =============
Validez les r&#233;ponses si ok...

Becracker · Answer

ca veut dire koi  SelLength ? Paske je l'ai utilis&#233; mais je peux tjrs s&#233;lectionner le texte.

neodelphi · Answer

Pourquoi souhaites-tu interdire la sélection ? Si c'est pour réaliser du texte multiligne sur une fiche en interdisant l'édition et en mettant le memo de la meme couleur que la fiche pour faire croire que c'est pas un mémo, tu peut le faire avec un label.... Le seul problème des label c'est que l'éditeur de propriété de delphi ne gère pas le texte multiligne pour les propriété du genre caption... cependant le label le gère quand même... Pour mettre plusieurs lignes de texte dans un label il y a deux méthodes : La première consiste à modifier le caption du label dans le code, par exemple lors de la création de la fenêtre :

Label1.Caption := 'Première ligne'+#13+'Seconde ligne';

C'est tout de même un peu lourd dans le code, surtout lorsqu'il y a 40 label à mettre comme ça dans ton programme... Ce que tu peut faire c'est click droit sur la fiche lors de la conception et choisir dans le menu "voir comme texte". Delphi va t'ouvrir le fichier dfm qui décrit l'aspect de ta fiche. A toi de trouver les ligne correspondant au label et de remplacer le caption. Chez moi ça donne ça :

... object Label1: TLabel Left = 168 Top = 176 Width = 432 Height = 26 Caption = 'ligne 1'+#13+'ligne 2' end ...

neodelphi

jlen100 · Answer

salut 

tu peux aussi placer ton memo sur un panel et faire
panel.enable:=false; tur garde l'aspet du memo ses fonctionnatilit&#233;s
mais tu le rend inaccessible a l'utilisateur.

neodelphi · Answer

Bricolage tr&#232;s efficace... c'est une bonne alternative aussi...

neodelphi

jlen100 · Answer

c'est pas du bricolage c'est meme la fonction premiere d'un panneau de controle:

controler le fonctionnement et l'acces des composants placer dessus et
le fait qu'il n'y ait qu'un seul composant dessus ne change rien &#224;
l'affaire

Becracker · Answer

Ah oui , mais la m&#233;thode de jlen100 suspend l'utilisation des
scrollbars dans le memo, surtout ke j'ai un texte long dedans et que je
ne veux pas agrandir la taille du memo.

neodelphi · Answer

C'est du bricolage &#224; partir du moment ou ce contr&#244;le ne pourra jamais &#234;tre utilis&#233; : il y a des tonnes de variables utilis&#233;s qui ne serviront jamais, au niveau optimisation c'est pas top...

neodelphi

Becracker · Answer

Donc &#224; part d'utiliser un label, ya pas moyen d'interdire la s&#233;lection sans perte de fonctionnalit&#233;s ?

neodelphi · Answer

La premi&#232;re r&#233;ponse de grandvizir si mais faut mettre son bout de code dans l'&#233;v&#232;nement onMouseMove... c'est encore du bricolage mais bon... Le prob c'est que tu peut encore s&#233;lectionner le texte avec le clavier...

Et pourquoi ne pas mettre ton label dans une scrollbox ?

neodelphi

jlen100 · Answer

et la propriete readonly du memo ne te suffit pas?

neodelphi · Answer

Non cette propri&#233;t&#233; ne suffit pas, elle ne bloque que la modification...
Je viend d'essayer la scrollbox et le label... j'ai remarqu&#233; que le label fait le word wrap et donc dans une scrollbox il peut faire les retour a la ligne tout seul comme le memo...

neodelphi

Becracker · Answer

Pour r&#233;pondre &#224; Jlen100, j'ai d&#233;ja utilis&#233; readonly m&#233; ca bloque juste
la modification. Pour la scrollbox, on fait comment pour y entrer du
texte ?

Becracker · Answer

ok 5/5 merci &#224; vous tous.

Pas de sélection dans un Memo.

15 réponses

Votre réponse

Discussions similaires