Discussion :

[Lung]

Comment intercepter le WM_PASTE dans un TRichEdit ?

J'ai essayé de passer par une WindowProc :

Code :

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

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 ?

[ShaiLeTroll]

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

[Lung]

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.

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.

[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

[Lung]

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 !
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 :

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

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;