Discussion :

[bubulemaster]

Bonjour,

je cherche à intercepter le message de double clique sur un RichEdit.

J'ai essayé avec BN_DOUBLECLICKED mais pas de résultat.

Si ce n'est pas possible est-ce le message BN_CLICKED qu'il faut envoyer au RichEdit pour simuler un clique gauche ?

Quelqu'un a-t-il un idée car google ne m'a pas donné de réponse ?

Merci d'avance.

PS : j'ai essayé avec le composant TApplicationEvents sans succès

[ShaiLeTroll]

as-tu essayé de voir ce que donnait le OnMouseUp/Down ?

Ensuite pour ta simulation, un clic gauche serait-il pour modifer la position du curseur ? voir CaretPos

[Gilbert Geyer]

Si ce n'est pas possible est-ce ... qu'il faut envoyer au RichEdit pour simuler un clique gauche ?

Autre suggestion : intercepter avec KeyPreview:=True pour Form1 :

Code :

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

1
2
3
4
5
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
...
            If (Sender is TRichEdit) and (ssDouble in Shift)  // On a double-cliqué sur la souris.
            then shift:=[ssLeft]; // double-click transformé en click-Gauche

[bubulemaster]

En fait inutile de mettre KeyPreview à true car ce n'est pas au clavier mais à la souris qu'on double clique.

Il faut mettre le code suivant dans OnMouseDown du TRichEdit :

Code :

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

1
2
3
4
5
    if (ssDouble in Shift)  // On a double-cliqué sur la souris.
    then
        Caption := 'Double clique'
    else
        Caption := 'rien' ;

Merci encore pour votre aide ! Ca marche