[D2010] Intercepter le WM_PASTE dans un TRichEdit

Comment intercepter le WM_PASTE dans un TRichEdit ?

J'ai essayé de passer par une WindowProc :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

procedure TForm1.RichEditProc(var Msg: TMessage); begin if Msg.Msg = WM_PASTE then begin if IsClipboardFormatAvailable(CF_UNICODETEXT) then begin Label1.Caption := ClipBoard.AsText; Exit; end; end;   _OldRichEditProc(Msg); end;

---

Mais, il n'entre même pas dans le premier if, comme si ce message n'était utilisé.

J'ai essayé d'utiliser un TApplicationEvents. Mais, le message WM_PASTE ne passe jamais.
J'ai essayé de traquer tous les messages qui passent pour essayer de deviner lequel serait le bon.
J'obtiens : 15, 275, 675, 513, 514, 512, 280.
Si je converti en hexadécimal et que je cherche dans l'unité Messages, ça donne : WM_PAINT, WM_TIMER, WM_MOUSELEAVE, WM_LBUTTONDOWN, WM_LBUTTONUP, WM_MOUSEMOVE.
Le seul qui n'a pas de correspondance, c'est le 280 (donc 118 en hexadécimal). Ce lien (http://social.msdn.microsoft.com/for...9-f5a0ed0d2e0a) a l'air de dire que ce serait WM_SYSTIMER.
Donc, je ne vois rien qui ressemblerait à un WM_PASTE.

Comment faire ?

:hola:

WM_PASTE ne concerner les controles mono-lignes ou alors multi-ligne simple comme le TMemo

Le RichEdit est un TCustomEdit dans la hiérarchie Delphi mais l'est-il vraiment dans la hiérarchie Windows, il est tout de même gérer par une DLL spécifique, à mon avis ce n'est pas un "edit control" au sans Windows du terme

le RichEdit gère le formattage lors du copier-coller comme WordPad, il doit gérer tout ça en interne via EM_PASTESPECIAL

Citation:

---

Envoyé par ShaiLeTroll

le RichEdit gère le formattage lors du copier-coller comme WordPad, il doit gérer tout ça en interne via EM_PASTESPECIAL

---

J'ai regardé pour voir si je voyais passer EM_PASTESPECIAL, mais apparement non. :(

Citation:

---

Envoyé par ShaiLeTroll

il doit gérer tout ça en interne

---

Ca veut dire que c'est pas possible, alors ?

Le but était de capturer le texte collé dans un RichEdit, avant qu'il ne soit collé, pour supprimer les éventuels caractères parasites, quand la copie est faite dans une page web ou office.

Sur le soft que je maintiens on a ajouté une action standard (TEditPaste) sur la form mère, les ctrl+v passent par son OnExecute et sur les RichEdit nous avons redéfinis les PopupMenu. De cette manière nous gérons nous même les copier coller en utilisant un TClipboard

Citation:

---

Envoyé par tenpigs

Sur le soft que je maintiens on a ajouté une action standard (TEditPaste) sur la form mère, les ctrl+v passent par son OnExecute et sur les RichEdit nous avons redéfinis les PopupMenu. De cette manière nous gérons nous même les copier coller en utilisant un TClipboard

---

Très bonne idée ! :ccool:
Effectivement, un TAction avec un raccourci [Ctrl+V] dans un TPopupMenu associé au RichEdit, fonctionne bien.
C'est mieux que ce que j'essayais d'imaginer avec un TAtom et un WM_HOTKEY.

Avec ta solution, j'arrive bien a intercepter l'action de coller, et à modifier le contenu du presse-papier :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TForm1.Coller1Click(Sender: TObject); var sz: String; begin if IsClipboardFormatAvailable(CF_UNICODETEXT) then begin sz := ClipBoard.AsText; CopierDansPressePapier(sz + 'TEST'); end;   SendMessage(GetFocus, WM_PASTE, 0, 0); end;

---

:merci: