Discussion :

[dehorter olivier]

Bonjour

Je voudrais modifier le contenu du presse-papier avant de l'afficher dans un tEdit (sous DELPHI XE2Pro).
Pour cela, je fait dans le OnKeyDown :

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.EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
VAR
   Chaine : String;
begin
     IF ((ssCtrl in Shift) AND ((Key = ord('V')) OR (Key = ord('V'))))  THEN
      begin
              if Clipboard.HasFormat(CF_TEXT) THEN
              begin
                 // mes modifs
 
              END;   // Fin de IF
      END;   // Fin de IF
end;

Ca ne marche pas

j'ai essayé la proposition de ero-sennin. Mais là non plus cela ne fonctionne pas (le contenu du presse-papier est collé tel-quel).

quelqu'un, aurait-il une autre solution ?

NB : cela se produit que la propriété KeyPreview de la form soit a Vrai ou Faux.

merci olivier

[ShaiLeTroll]

Peut-être qu'en capturant WM_PASTE dans la WndProc du TEdit, tu aurais plus de succès

PasteFromClipboard envoie un WM_PASTE espérons que Windows le fait aussi !

Il est dommage qu'il n'existe pas un OnPaste, OnCopy et OnCut dans le TClipboard !
Mais essaye avec une ACTION TEditPaste qui normalement capture le Paste sur l'Edit ayant le Focus comme le fait Lung selon les conseils de tenpigs



Sinon voir le code du Dr.Who

[dehorter olivier]

Je suis passé par le TEditPaste ses ACTIONs

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TfPrincipal.EditPasteExecute(Sender: TObject);
begin
    IF (Application.FindComponent('fForm') <> NIL) THEN
    begin
       IF fForm.ActiveControl.Name = fForm.AdvEdit1.Name THEN
        begin
 
             // Faire les modifs 
 
        END;   // Fin de IF
    END;   // Fin de IF
End;

et ca marche

Merci

[Andnotor]

Depuis D2009, je dirais que c'est plutôt le CF_UNICODETEXT qu'il aurait fallu modifier. Il ne faut pas oublier que le presse-papier contient la donnée sous divers formats et que c'est l'application cible qui choisi celui qui lui convient le mieux

Il est dommage qu'il n'existe pas un OnPaste, OnCopy et OnCut dans le TClipboard !

On peut surveiller le couper/copier assez simplement par SetClipboardViewer (XP) ou AddClipboardFormatListener (Vista+)

[dehorter olivier]

C'est juste pour finaliser le code afin qu'il puisse servir à d'autres :

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
19
20
21
procedure TfPrincipal.EditPasteExecute(Sender: TObject);
VAR
   Chaine : String;
begin
   // gere le contenu du presse-papier
    IF (Application.FindComponent('fForm') <> NIL) THEN
    begin
          if Clipboard.HasFormat(CF_TEXT) THEN
          begin
              Chaine := Clipboard.AsText;
 
              // Mes modifications 
 
              Clipboard.AsText := Chaine;
          END;   // Fin de IF
    End ELSE
    Begin
 
    END;   // Fin de IF
    //SendMessage(GetFocus, WM_PASTE, 0, 0);
    PostMessage(getFocus(), WM_PASTE, 0, 0 );

A noter que :
SendMessage(GetFocus, WM_PASTE, 0, 0); ne retourne pas chaine avec certains composants (test avec un composant de TMS) Pourquoi ? je n'ai pas cherché