Memo, aktuelle Zeilennummer ausgeben

[Scorpion]

Hallo,

wie kann ich die Nr. der Zeile in einer Memo ausgeben , in der ich mich gerade befinde? Also die wo der Cursur ist

Danke

[Mazel]

Hi,

um die aktuelle Zeile zu ermitteln (also die Zeile in der sich der Curdor befindet), kannst du die API Funktion SendMessage verwenden:
 Label1.Caption:=IntToStr(SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0)); Zu beachten ist aber, dass die erste Zeile, wie bei einer Stringlist, mit 0 beginnt.

Gruß
Mazel

[marabu]

Hier noch eine Alternative:

Delphi-Quellcode:

with Memo.CaretPos do
  ShowMessage(Format('X = %d, Y = %d', [X, Y]));

Grüße vom marabu