Discussion :

[firejocker]

Slt,

voila, j'ai un compo heritant du richedit et je voudrais effectuer un traitement lorsque l'user fais un copier coller

apres le coller en fait,

j'ai compte donc detourner l'application.onmessage du compo et mettre :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TFireColorSynth.AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.message = WM_PASTE then
  begin
           mo code ici
    //Lines.Add();
    Handled := True;
  end;
 
end;

mais 'aimerai que le code interviennent apres le codage, il faut donc que je remplace le collage de windows par le mien, jvois pas comment faire cela

si vous pourriez m'aider

[firejocker]

tiens, d'ailleur c'est louche,

ctrl + v ne lance pas le message WM_PASTE,

que se passe t'il alors ?

[firejocker]

[Nono40]

mais 'aimerai que le code interviennent apres le codage, il faut donc que je remplace le collage de windows par le mien, jvois pas comment faire cela

Cette partie là n'est pas claire, pas facile de répondre. Que veux-tu dire par "Après le codage" ?

[firejocker]

oups,

en fait, c'est apres le collage,

c'est à dire que j'ai un traitement de reconnaissance de mot (coloration syntaxique) que je souhaiterai lancer apres la fin du collage par ctlr + V

c'est plus clair ?

[edit]

on m'a donné une piste, mais je ne sais pas l'exploité :
on m'a dit de voir comment fonctionne le popupmenu, car si j'en mais un dessus et que j'assigne le raccourci ctrl + V a un code dans ce genre :

Code :

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

1
2
3
4
5
6
7
procedure TMain.coller1Click(Sender: TObject);
var s :string;
    arr :array[0..1000]of char;
  begin
    richedit1.PasteFromClipboard;
   // mon traitement ici  
  end;

cela fonctionne.

je voudrai m'affranchir de tout cela en ne recuperant que le raccourci de collage.

seulement (j'ai la version 7 pro) quand je cherche le code qui fait cela dans les sources, je bloque... jvois pas la suite de ca par exemple :

nb : ici, c'est le memo, mais c'est pareil

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
22
23
24
25
26
27
28
29
30
31
32
 
TMemo = class(TCustomMemo)
  published
    property Align;
    property Alignment;
    property Anchors;
    property BevelEdges;
    property BevelInner;
    property BevelKind default bkNone;
    property BevelOuter;
    property BiDiMode;
    property BorderStyle;
    property Color;
    property Constraints;
    property Ctl3D;
    property DragCursor;
    property DragKind;
    property DragMode;
    property Enabled;
    property Font;
    property HideSelection;
    property ImeMode;
    property ImeName;
    property Lines;
    property MaxLength;
    property OEMConvert;
    property ParentBiDiMode;
    property ParentColor;
    property ParentCtl3D;
    property ParentFont;
    property ParentShowHint;
    property PopupMenu;

je comprend pas ce code, pourquoi il ne ressemeble pas à
property x : type read fx write fx; ....

et ou il est affecté....

[tourlourou]

j'ai regardé hier aussi !

PasteFromClipboard génère juste un SendMessage(WM_Paste) donc rien ne sert de le surcharger...

il faut pê faire pointer la procédure WndProc du Memo vers un traitement perso des messages pour choper le WM_Paste ?

Et qui traite la frappe de Ctrl+V ? le Memo lui-même ? Windows ?

[firejocker]

ok, je vais regarder du coté de WndProc donc

merci