Détection OnClick sur ScrollBar RichEdit

Version imprimable

31/03/2010, 20h01
Droïde Système7

Détection OnClick sur ScrollBar RichEdit

Bonsoir :D

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

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

@+

J'ai essayé ça :
Code:

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...

01/04/2010, 11h35
Droïde Système7

Tu disais :

Citation:

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

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

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

:merci:
01/04/2010, 12h04
Archimède

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

salut

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

Code:

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:

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:

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....

01/04/2010, 18h15
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 :D

@+
13/11/2012, 22h09
cruchacode

limites d'une solution sans composant

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:

procedure CreateWnd; override;

Code:

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 ...
13/11/2012, 22h14
BuzzLeclaire

Citation:

Envoyé par cruchacode

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

Code:

procedure CreateWnd; override;

Code:

procedure CNNotify(var Msg: TWMNotify); message CN_NOTIFY

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

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

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

Merci