Discussion :

[remus08]

Bonjour à tous,

J'aimerai désactiver les fonctions de Copier/Couper et Coller d'un TMemo, (que j'utilise pour faire de l'affichage seulement).

J'ai trouvé des bout des de solutions sur des sites anglais, à savoir intercepter les messages windows WM_COPY, WM_CUT. mais je bloque sur l'implémentation


Je vous remercie d'avance de votre aide

[Crayon]

Tous les contrôles de la VCL possèdent une méthode WindowProc que tu peux rediriger pour capter ces messages.

Pour un exemple regarde mon blogue: http://www.optimatek.com/2010/03/tex...une-liste-vide

[sat83]

Est-ce que l'utilisateur dois pouvoir écrire dans le Memo, ou il s'agit uniquement d'un affichage pour ton programme?

[remus08]

Merci pour vos réponses rapides,
Non l'utilisateur ne doit pas écrire dans la zone, c'est purement de l'affichage.

Crayon,

Ton exemple correspond à ce que je veux faire. Par contre j'ai un soucis à la compilation. La ligne suivante me génère une erreur du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Classes::TWndMethod OldListViewProc;

TWndMethod n'est pas un membre de Classes

J'avoue que sa dépasse (encore ) mes compétences! Que veux dire ce mot "Classes"?

[sat83]

Si c'est pour de l'affichage, pourquoi utiliser un Memo???
Utilise un composant qui ne permet pas à l'utilisateur de faire des copier/coller pour afficher tes informations...
Sinon tu met la propriété Enabled à false, ce qui rendra l'accès au texte du Memo impossible à l'utilisateur...

[remus08]

J'utilise un Memo, pour gérer l'affichage de façon plus facile... Le texte que j'affiche peut faire 2 mots jusqu'à une 20 lignes (dans ce cas le schroll est bien pratique).

Le fait de mettre enable à false, m'affiche les text en "gris"... Et doit certainement me désactiver la schroll bar..

sat83, Peut être une autre idée de composant qui pourrai être utilisé?

La solution de Crayon me semblait bien!!! Je suis preneur pour tout autre idée..

En tout cas, merci!

[cedni]

Salut

Tiens voilà , deux événements

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
void __fastcall TForm1::Memo1ContextPopup(TObject *Sender,
   TPoint &MousePos, bool &Handled)
{
keybd_event(VK_ESCAPE,0,1,0); //touche enfoncé
keybd_event(VK_ESCAPE,0,2,0); //touche relevé
// SetCursorPos(int,int);    // éventuellement deplacer le curseur
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1Enter(TObject *Sender)
{
Memo1->ReadOnly=true; // ou définis le sur le oncreate de la form
}

On simule la pression d echap pour refermer le menu contextuel

[ShaiLeTroll]

ReadOnly ?

EDIT : Grillé par Sedni !

J'utilisais parfois un StaticText, mais pour 20 lignes, cela peut être génant !

Sinon pour reprendre la proposition de Sedni, il y a Handled qui est conçu pour cela, très pratique lorsque l'on veut fournir un menu personnalisé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
void __fastcall TForm1::Memo1ContextPopup(TObject *Sender,
   TPoint &MousePos, bool &Handled)
{
  Handled = true;
}

[cedni]

Parcontre j arrive encore à faire une selection et utiliser ctrl+c

[cedni]

Voilà çà fonctionne enfin , pas de clic droit , ni de selection + raccourcis clavier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
void __fastcall TForm1::Memo1ContextPopup(TObject *Sender, TPoint &MousePos, bool &Handled)
{
Handled = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1Enter(TObject *Sender)
{
Memo1->ReadOnly=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1KeyPress(TObject *Sender, char &Key)
{
OpenClipboard(NULL);
EmptyClipboard();
}

[Crayon]

Si tu es intéressé à utiliser ma méthode, alors la voici. Par contre, il va falloir la jumelé à d'autre mentionné plus haut si tu désires empêcher l’apparition du menu avec un clique droit. Si tu veux empêcher l'édition il va falloir mettre la propriété ReadOnly à true.

Dans le .h il faut ajouter ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    void __fastcall MemoWndProc(Messages::TMessage &Message);
    TWndMethod OldMemoProc;

Voici le .cpp:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    OldMemoProc = Memo1->WindowProc;
    Memo1->WindowProc = MemoWndProc;
}
 
void __fastcall TForm1::MemoWndProc(Messages::TMessage &Message)
{
    if(Message.Msg == WM_COPY || Message.Msg == WM_CUT || Message.Msg == WM_PASTE)
    {
        return;
    }
    OldMemoProc(Message);
}

Peut-être que tu veux aussi le message WM_CLEAR.

[sat83]

sat83, Peut être une autre idée de composant qui pourrai être utilisé?

A voir selon ton usage, mais on peut par exemple imaginer:
-Une TListBox
-Un TLabel dans un TScrollBox

[remus08]

Bonsoir,

Je suis arrivé à une solution qui marche très bien, je clos le sujet, en vous remerciant tous...

remus08

[Gethile]

Bonjour,

La réponse au problème aurait été profitable à beaucoup...

Je travaille en Delphi mais je rencontre un problème similaire, à savoir que je souhaite employer les facilités d'un TMemo mais juste en affichage. Hors, même avec ReadOnly à true, les touches fléchées que j'intercepte par ailleurs provoquent une sélection dans le texte... pire en combiné avec Shift (surbrillance). J'ai dans l'idée que l'on peut faire la même chose en C++.

Une solution simple à ajouter à la propriété ReadOnly qui n’empêche pas la sélection :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
procedure TForm.Memo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
     key := 0;
end;

Pour Delphi en tout cas...