Discussion :

[Droïde Système7]

Bonsoir

Une petite question qui me pose bien du souci :

Est-il possible de détecter le OnClick (enfin son équivalent) sur la ScrollBar de RichEdit ?

En effet, je dois détecter cela.

Celui qui me dit que c'est lié avec le RichEdit par lui-même, je lui fait dévorer mon mulot

Merci d'avance de toute réponse ou idée.

@+

[Archimède]

J'ai essayé ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.FormCreate(Sender: TObject);
begin
with RichEdit1 do  zone:=rect(boundsrect.Right-15,boundsrect.top,boundsrect.Right,boundsrect.bottom); //scrollbar vertical
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if ptinrect(zone,point(mouse.CursorPos.x-clientorigin.x,mouse.CursorPos.y-clientorigin.y))then caption:='tu scrolles' else caption:='non';
end;

sur le onmousemouve du richedit avec ssleft in shift et point(x,y), ça ne fonctionne pas... dommage...

il faudrait au moins inclure l'enfoncement du bouton gauche de la souris en condition supplémentaire.
dommage

pas le temps de regarder plus profondément...

[Droïde Système7]

Tu disais :

sur le onmousemouve du richedit avec ssleft in shift et point(x,y), ça ne fonctionne pas... dommage...

C'est ce dont je disais précédemment : le RichEdit et sa ScrollBar ne font pas un, mais deux

Je ne suis pas friand de toute méthode utilisant un Timer, mais là je ne vais pas faire la chochotte

Archimède, ça marche impec !

Ça ne détecte pas le "OnClick", mais le "OnMouseMove" sur la ScrollBar.

Peut importe ; ça va déjà me dépanner un max

[Archimède]

Je suis tout à fait conscient que ce n'est pas top mais c'est une ébauche d'idée à améliorer...

salut

[Eric Boisvert]

Un peu demander au RichEdit de nous avertir sur
des évènements supplémentaires...

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
 
//*** NOTES 
//*** Declaration pour Delphi 5...
//*** sûrment inutile dans version superieur...
Const
  EM_GETEVENTMASK = WM_USER + 59;
  EM_SETEVENTMASK = WM_USER + 69;
  ENM_MOUSEEVENTS = $00020000;
  ENM_SCROLLEVENTS= $00000008;
  EN_MSGFILTER    = $700;
 
Type
  PMsgFilter = ^TMsgFilter;
{$EXTERNALSYM _msgfilter}
  _msgfilter = Record
    nmhdr: TNMHdr;
    msg: UINT;
    wParam: WPARAM;
    lParam: LPARAM;
  End;
  TMsgFilter = _msgfilter;
 
Function GetEventMask(h: HWND): integer;
Begin
  result := sendmessage(h, EM_GETEVENTMASK, 0, 0);
End;
 
Function SetEventMask(h: hwnd; Mask: integer): integer;
Begin
  result := sendmessage(h, EM_SETEVENTMASK, 0, Mask);
End;

Dans le create de la form...

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  Mask:DWord;
Begin
  Mask:=GetEventMask(RichEdit1.Handle);
  //Souris et Scroll Events
  Mask:=Mask Or ENM_MOUSEEVENTS or ENM_SCROLLEVENTS;
  //Demande Au RichEdit d'avertir la form d'évènement supplémentaire
  SetEventMask(RichEdit1.Handle, Mask);

On Override la WndProc de la form...

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
33
34
35
36
37
38
 
Procedure TForm1.WndProc(Var Msg: TMessage);
Var
  i: integer;
Begin
  If (Msg.Msg = WM_NOTIFY) And (PNMHDR(Msg.lParam).hwndFrom = RichEdit1.handle) Then
  Begin
    If (PNMHDR(Msg.lParam).code = EN_MSGFILTER) Then
    Begin
      if PMSGFILTER(Msg.lparam).msg =WM_VSCROLL then
      begin
        //Scroll See help on GetScrollPos
        i:=0; //for Break Point only
      end;
      If PMSGFILTER(Msg.lparam).msg = WM_MOUSEMOVE Then
      Begin
        case PMSGFILTER(Msg.lparam).wParam of
          MK_LBUTTON:
            begin
              //Un click gauche ici!
              i:=0;//for Break Point only
            end;
          MK_RBUTTON:
            begin
              //UnClick droit ici
              i:=0;//for Break Point only
            end;
          MK_MBUTTON:
            begin
              //UnClick centre ici
              i:=0;//for Break Point only
            end;
        end;
      End;
    End;
  End;
  Inherited;
End;

À modifier selon votre défi du jour....

[Droïde Système7]

Whaouuu !!! Éric, là je suis paré de tous les évènements concernant ce RichEdit !

Merci les copains, grâce à vous je suis arrivé à mes fins

@+

[cruchacode]

Si le TRichEdit n'est pas directement placé sur la fiche, cette solution ne fonctionne pas : en effet, les messages sont envoyés au parent du TRichEdit, non à la fiche...

Une solution consiste à dériver une nouvelle classe de TRichEdit en ajoutant deux méthodes :

Code :

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

procedure CreateWnd; override;

Code :

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

procedure CNNotify(var Msg: TWMNotify); message CN_NOTIFY

Leur implémentation reprend ce qui a été précédemment proposé...

Remarque finale : les constantes EM_GETEVENTMASK ... se trouve dans l'unit RichEdit.pas présente dans D5 ...

[BuzzLeclaire]

Une solution consiste à dériver une nouvelle classe de TRichEdit en ajoutant deux méthodes :

Code :

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

procedure CreateWnd; override;

Code :

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

procedure CNNotify(var Msg: TWMNotify); message CN_NOTIFY

Il était temps que tu arrives, on ce posais encore la question...

T’inquiète je suis le rigolo du coin.

ça c'est du déterrage de topic utile.

Merci