[D7] Numéro de la ligne sous le curseur de la souris dans un RichRdit

**Charly910** · 22/03/2025, 16h12

Bonjour,
j'essaye de récupérer dans MouseMove, le numéro de la ligne sous le curseur de la souris du RichEdit M1. J'ai trouvé ceci :

Code :

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

1
2
3
4
5
6
var  Pt: TPoint;
        CharIndex, Col, Row : Integer;
begin
  Pt:= Point(X, Y);
  CharIndex := SendMessage(M1.Handle, EM_CHARFROMPOS,  0, Integer(@Pt));
  Row       := SendMessage(M1.Handle, EM_EXLINEFROMCHAR, 0, CharIndex);

mais EM_EXLINEFROMCHAR n'est pas déclaré (j'ai ShellApi dans mes uses)

si je mets EM_LINEFROMCHAR à la place, j'obtiens Row = 0

Pouvez vous m'aider ?

Merci
A+
Charly

PS : le code

Code :

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

Row := HiWord(M1.Perform(EM_CHARFROMPOS, 0, MakeLong(X, Y)));

Que n'avait donné Andnotor ne fonctionne que pour un Memo

**tourlourou** · 22/03/2025, 16h44

Bonjour,

On trouve sa valeur ici : https://github.com/tpn/winsdk-10/blo.../um/Richedit.h

Code c++ :

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

#define EM_EXLINEFROMCHAR		(WM_USER + 54)

**Charly910** · 22/03/2025, 18h14

Merci Tourlourou,

avec cette valeur, ça fonctionne parfaitement (M1 de type TRichEdit) :

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
procedure TF_ListeRep.M1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
 
Const
  EM_EXLINEFROMCHAR = WM_USER + 54 ;
 
var  Pt: TPoint;
        CharIndex, Col, Row : Integer;
begin
  Pt:= Point(X, Y);
  CharIndex := SendMessage(M1.Handle, EM_CHARFROMPOS,  0, Integer(@Pt));
  Row       := SendMessage(M1.Handle, EM_EXLINEFROMCHAR, 0, CharIndex);
  Col       := CharIndex - SendMessage(M1.Handle, EM_LINEINDEX, Row, 0);
  StatusBar1.Panels.Items[0].Text:= ' X: ' + inttostr(X)
                                + ' Y: ' + Inttostr(Y)
                                +' CharIndex: ' + inttostr(CharIndex)
                                + ' Col: ' + inttostr(Col)      // GetOffSetIndent=0
                                +' Row: ' + inttostr(Row);
 end;