Hallo Heike,
also die Zeile auslesen kannst Du mit:
Zeile := SendMessage(RichEdit.Handle, EM_LINEFROMCHAR, RichEdit.SelStart, 0);
Liefert "Zeile - 1" zurück...
Zum Setzen weiß ich leider nichts, man könnte aber in einer Schleife ausprobieren, wann eine neue Zeile beginnt, und dann SelStart setzen, also:
Delphi-Quellcode:
for i:=0 to length(RichEdit.Text)-1 do
begin
if SendMessage(RichEdit.Handle, EM_LINEFROMCHAR, i, 0) = (GewuenschteZeile - 1) then
begin
RichEdit.SelStart := i;
RichEdit.SelLength := 0; // oder anderer gewünschter Wert
ActiveControl := RichEdit; // nur wenn nötig
break;
end;
end;
Grüsse
...Doc