Discussion :

[bubulemaster]

Bonjour,

est-il possible de connaitre la position ligne/colonne d'un TMemo.

Avec un RichEdit je faisais :

Code :

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

1
2
3
4
5
6
      CharPos.Y := SendMessage(Memo1.Handle, val, 0,
        Memo1.SelStart);
      CharPos.X := (Memo1.SelStart -
        SendMessage(Memo1.Handle, EM_LINEINDEX, CharPos.Y, 0));
      Inc(CharPos.Y);
      Inc(CharPos.X);

Mais ça ne fonctionne pas avec un TMemo.

Merci

[ero-sennin]

Salut,

Un petit tour dans la FAQ

[bubulemaster]

Arf, j'ai cherché pourtant.

avec ce code seule la colonne est fausse s'il s'agit de la dernière ligne :

Code :

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

1
2
3
4
5
6
7
8
    with Memo1 do
    begin
      CharPos.X := SendMessage(Handle, EM_LINEFROMCHAR, SelStart, 0) ;
 
      CharPos.Y := SendMessage(Handle, EM_LINEINDEX, CharPos.X + 1, 0) ;
 
      Caption := IntToStr(CharPos.X + 1) + '/' + IntToStr(CharPos.Y + 1) ;
    end;

[ero-sennin]

Salut,

J'avais mal interprété ton soucis (j'ai lu trop rapidement )

Il faut faire ainsi :

Code :

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

1
2
3
4
5
6
with Memo1 do
 begin
   CharPos.X:=SendMessage(Handle,EM_LineFromChar,SelStart,0);
   CharPos.Y:=SelStart - SendMessage(Handle,EM_LineIndex,CharPos.X,0);
   Caption := IntToStr(CharPos.X+ 1) + '/' + IntToStr(CharPos.Y+ 1) ;
 end;

Tu t'es trompé en Ajoutant le "+1" pour la colonne

@+

[bubulemaster]

Super ça marche merci