Aktuelle Momoposition herausfinden

[OnFire]

Hey Leute,

habe mal wieder ein Problem...

Ich möchte mir gerne in einer Showmessage anzeigen lassen, in welcher Zeile ich
mich in einem Memofeld befinde, habe jedoch keine Ahnung wie das geht.

Hoffe jemand kann mir helfen

Thanks OnFire

[Nicodius]

CaretPos oder mit [memo1.capicity+1(weils bei 0 beginnt)]

[Dax]

Mit CaretPos geht das ganz einfach:

Delphi-Quellcode:

var
  Pos: TPoint;
begin
  Pos := Memo1.CaretPos;
end;

Dann enthält Pos die Koordinaten des Schreibcursors, startet oben links mit 1, 1.

[Harry M.]

Code:

 showmessage('position in Memo1 ist zeile: '+IntToStr(Memo1.CaretPos.Y)+' Spalte: '+IntToStr(Memo1.CaretPos.X));

oder so..

[Harry M.]

hat sich aus versehen 2mal gesendet.. sorry