[TMemo] Obtenir le numéro de la ligne

**JFM** · 03/08/2005, 05h38

Bonjour!

Je suis en train de créer une application et je veux pouvoir obtenir le numéro de la ligne où se trouve le curseur. J'ai trouvé dans le forum des façons de placer le curseur sur une ligne déjà définie mais ce n'est pas ce que je recherche puisque je veux être en mesure d'obtenir le numéro de la ligne en question.

Merci d'avance!

**Lung** · 03/08/2005, 08h16

Essai ca :

Code :

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

1
2
3
4
5
6
7
8
9
function MemoRow(m: TMemo): LongInt;
begin
  Result := SendMessage(m.Handle, EM_LINEFROMCHAR, m.SelStart, 0) + 1;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
   ShowMessage(IntToStr(MemoRow(Memo1)));
end;