Tweet
gibt es bei einem Rich-Edit die Möglichkeit die Zeilennummer der Zeile rauszufinden in dem der Cursor ist ...
DAnke im Voraus ...
DAnke im Voraus ...
-
-
Eine Möglichkeit wäre über Selection.
Das Zeichen, über dem der Cursor steht, selektieren. (Kann man ja verdeckt machen). Und dann:
SelStart gibt die Position dieses Zeichens relativ zum Textbeginn an.
<PRE>
function AuktuelleZeile: integer;
var
I : integer // Zähler
j : integer // Summe aller Zeichen ab Textanfang
Zeile : integer // Dein Zeilen-Zähler
begin
j := 0; Zeile := 0;
For i := 0 to Richedit1.Lines.Count - 1 do begin
j := j + len(Richedit1.Lines[i]) + 2; // LF + CR
if j > RichEdit1.SelStart then break;
inc(Zeile,1);
end;
result := Zeile;
end;
</PRE>
Ich hab's jetzt nicht getestet, müßte aber funktionieren
Die genaue Cursor-Position wäre bereits SelStart
gruß
bernhar -
Moin sseering,<br>
<br>
dazu dient die Eigenschaft CaretPos.<br>
Die gibt Dir dann in (Beispiel) RichEdit1.CaretPos.x die Spalte und in RichEdit1.CaretPos.y die Zeile zurück.<br>
Achtung: Es wird bei 0 angefangen zu zählen. Steht der Cursor (das Caret) also ganz oben links sind beide Werte gleich 0.<br>
<br>
Ciao<br>
ChriComment
Comment