Discussion :

[firejocker]

Slt,

j'ai un composant qui herite du richedit et je souhaite effectuer un traitement lorsque l'utilisateur effectue un collage dans le texte,

j'essai donc de detourner la procedure WndProc avec ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TMyCmp.WndProc(var Message: TMessage);
begin
 
    inherited;
 
    if Message.Msg = WM_PASTE then
    begin
         Traitement(True);
    end;
 
end;

Rien n'y fais !

que je mette le wm_past, wm_char....

je vois pas ce que je dois modifier pour que cela marche,
vous auriez une idee ?

[bjl]

bonjour,

et en essayant

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TMyCmp.WndProc(var Message: TMessage); 
begin 
 
    if Message.Msg = WM_PASTE then 
    begin 
         Traitement(True); 
    end
    else  inherited; 
 
end;

[rsc]

Il est en effet possible (je n'en suis pas sûr, c'est une supposition) que le traitement appelé dans inherited modifie Message.

Je ne suis pas sûr qu'il soit dans tes intentions de squeezer le traiement normal comme le propose bjl, mais tu peux Faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TMyCmp.WndProc(var Message: TMessage);
var
  Msg : Cardinal;
begin
 
   Msg := Message.Msg;
   inherited;
 
    if Msg = WM_PASTE then
    begin
         Traitement (True);
    end;
 
end;

[firejocker]

ça non plus ne donne rien

[tourlourou]

je pense que tu dois "faire" 2 procédures :
1) tu stockes l'adresse de WndProc dans old_addr
2) tu définis une variable old_proc de type procedure de traitement et tu la fais pointer sur old_addr
3) dans ta procédure maison, tu appelles d'abord old_proc en lui passant le message (en copie, pas en var) ; puis tu fais ton traitement perso

[rsc]

Peux-tu vérifier que lors du collage, ta procédure est bien appelée ? (Tu palces un point d'arrêt ou un Showmessage). Du même coup, tu peux vérifier la valeur de message.Msg, et si elle correspond bien à WM_PASTE. On saura un peu mieux où on en est

[firejocker]

ben justement non,
jai l'impression que c'est un autre message qui passe et non wm_paste

[rsc]

Quelle est la valeur (hexa ou entier) de Message.Msg ?

[firejocker]

j'arrive pas a savoir quel message est envoyé,
un BP dessus bloque sans arret et dedans, jamais

[tourlourou]

il est possible que tu doives filtrer le message WM_COMMAND qui a l'air déclenché par les raccourcis clavier et dont le wID serait WM_PASTE :

The WM_COMMAND message is sent when the user selects a command item from a menu, when a control sends a notification message to its parent window, or when an accelerator keystroke is translated.

WM_COMMAND
wNotifyCode = HIWORD(wParam); // notification code
wID = LOWORD(wParam); // item, control, or accelerator identifier
hwndCtl = (HWND) lParam; // handle of control


Parameters

wNotifyCode

Value of the high-order word of wParam. Specifies the notification code if the message is from a control. If the message is from an accelerator, this parameter is 1. If the message is from a menu, this parameter is 0.

wID

Value of the low-order word of wParam. Specifies the identifier of the menu item, control, or accelerator.

hwndCtl

Value of lParam. Identifies the control sending the message if the message is from a control. Otherwise, this parameter is NULL.

[firejocker]

c'est pas lui non plus ... snif

pas moyen de trouver

du coup, j'ai fais differemment mais j'aimerai quand meme bien trouver,
ne serait ce que pour ma culture perso

[rsc]

j'arrive pas a savoir quel message est envoyé,
un BP dessus bloque sans arret et dedans, jamais

Je continue sur mon idée de résupérer le message.Msg émis lors du collage. Je ne suis pas sûr de comprendre les "dessus" et "dedans" mais si cela signifie dans et en dehors du bloc "if message.Msg", tu pourrais éviter les arrêts inutiles en définissant un flag que tu mets à True juste avant de coller, à False juste après, et dans WndProc, en dehors du bloc if, tu mets :

Code :

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

1
2
if MonFlag 
  then Showmessage (IntToHex (Message.Msg));

et ensuite, en recherchant cette valeur hexa dans l'unité Messages, on devrait bien arriver à la trouver, non ?

[firejocker]

jvais tenter ca ...