connaitre la position de mon curseur dans un memo

**nawal.02** · 27/04/2009, 21h32

salut a tous,,
je veux pouvoir afficher le numéro de la ligne ou je suis positionner comme par exemple le compilateur delphi a chaque fois il m'affiche le numéro de la ligne tout en bas ,,j'espère que j'étais claire,,
je vous pris de m'aider!!
j'ai utiliser un autre mémo que j'ai initialiser par des nombres a coté de mon mémo ou j'écris mon texte mais je n'arrive pas a les synchroniser ensemble!!
Svp une idée!!
merci d'avance.

**NABIL74** · 27/04/2009, 22h07

salut,

je veux pouvoir afficher le numéro de la ligne ou je suis positionner comme par exemple le compilateur delphi a chaque fois il m'affiche le numéro de la ligne tout en bas ,,j'espère que j'étais claire

pour pouvoir obtenir le numéro de la ligne d'un memo,il suffit de travailler sur l'événement "onKeyDown" .
ce code suivant te donne le numéro de la ligne où est positionné ton curseur:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Line, Column : integer;
begin
With Memo1 do begin
   Line := Perform(EM_LINEFROMCHAR,SelStart, 0) ;
   Column := SelStart - Perform(EM_LINEINDEX, Line, 0) ;
end;
edit1.Text:= inttostr(Line);//edit1 sert à afficher le numéro de la ligne où est positionné ton curseur.
 
end;

A+

NABIL74

**nawal.02** · 27/04/2009, 22h32

Merci bcp,bcp je viens de l'appliquer sur l'événement "OnMoseDown" et sa marche.
Merci bcp

**NABIL74** · 27/04/2009, 22h40

de rien nawel

,
si tu veux afficher le numéro de ligne comme on le voit sous l'IDE delphi,il te suffit d'ajouter un StatusBar.dans la propriété "Panels" ajoute une nouvelle "StatutPanel" et puis ajoute ce code( j'ai remplacé"edit1" par "StatusBar1"

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var Line, Column : integer;
begin
With Memo1 do begin
   Line := Perform(EM_LINEFROMCHAR,SelStart, 0) ;
   Column := SelStart - Perform(EM_LINEINDEX, Line, 0) ;
end;
StatusBar1.Panels.Items[0].Text:=inttostr(line);
end;