Ich hab mal ein wenig rumprobiert und das ist dabei rausgekommen.
Hier ein paar Schnippsel die dich im RichEdit hin und her springen lassen bzw an eine exakte position oder halt aktuelle Zeilen Position herausfinden (ohne auf ScrollPos angewiesen sein zu müßen)
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
x: Integer;
begin
with RichEdit1
do
begin
// Zur letzten Zeile scrollen:
SelStart := Length(Text);
Perform(EM_SCROLLCARET, 0, 0);
// oder ohne SelStart direkt: Perform(WM_VSCROLL, SB_BOTTOM,0);
// Zur ersten Zeile Scrollen:
SelStart := Perform(EM_LINEINDEX, 0, 0);
Perform(EM_SCROLLCARET, 0, 0);
// oder ohne SelStart direkt: Perform(WM_VSCROLL, SB_TOP,0);
// Cursor auf Zeile 5, Position 3 setzen:
SelStart := Perform(EM_LINEINDEX, 5, 0) + 3;
Perform(EM_SCROLLCARET, 0, 0);
// Eine Zeile nach unten scrollen
with RichEdit1
do
begin
x := SendMessage(
Handle, EM_LINEFROMCHAR, SelStart, 0);
// <- hier ermittel ich die aktuelle Zeile, danke WinAPI :-)
SelStart := Perform(EM_LINEINDEX, x + 1, 0);
Perform(EM_SCROLLCARET, 0, 0);
end;
// Den Fokus aufs RichEdit setzen:
SetFocus;
end;
end;
Mit Änderungen aus diesen Schnippsel kannst Du evtl. deine benötigten Werte ermitteln.
Achtung: Es existiert absolut null Fehler-Behandlung in diesem Schnippsel!
Der Code ist ab Windows 2000 nutzbar.
Falls es generell nicht das ist was du suchst, entschulde bitte diesen Post.
Grüße