Bonjour,
J'ai un problème, comme beaucoup de gens qui viennent ici ! ;-)
J'ai conçu un objet Dérivé d'un TCustomRichEdit. Je souhaite le protéger d'action type Couper/Copier/Coller. Pour cela, j'ai déclarer les fonctions suivantes :
Puis leurs définitions :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 procedure WMCopy(var Msg: TMessage); message WM_CUT; procedure WMCopy(var Msg: TMessage); message WM_COPY; procedure WMCopy(var Msg: TMessage); message WM_PASTE;
J'ai trouvée ces infos sur Torry's delphi Page.
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
16
17
18 procedure TMonObj.WMCopy(var Msg: TMessage); begin //mon traitement... inherited; end; procedure TMonObj.WMCopy(var Msg: TMessage); begin //mon traitement... inherited; end; procedure TMonObj.WMCopy(var Msg: TMessage); begin //mon traitement... inherited; end;
Malheureusement, il semblerait que les Ctrl+C, Ctrl+V, Ctrl+X ne génère pas les message WM_COPY, WM_CUT et WM_PASTE car ces fonctions ne sont pas appellé.
Ai je fais une erreur quelque par ? Quelqu'un a t'il une info sur ce problème ?
Partager