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 :

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;
Puis leurs définitions :

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;
J'ai trouvée ces infos sur Torry's delphi Page.

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 ?