Hallo Alle!

Ist es in Delphi möglich, mit einem Befehl oder so in einem RichEdit zu einer bestimmten Zeile zu springen/ scrollen?

Gruß
Heike

Hallo Heike,

ich glaube, das geht mit SelStart.
Gruß Ines

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:

zusammenfalten · markieren

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

Hallo Heike,

hier ist ein thread, in dem deine Frage schonmal beantwortet wurde: klick

Grüße vom marabu

Zitat von marabu:

Hallo Heike,
hier ist ein thread, in dem deine Frage schonmal beantwortet wurde: klick
Grüße vom marabu

Hi,

den Thread Hatte ich gesehen, aber klappte bei mir nicht! Habe aber jetzt den Fehler gefunden.
Im RichEdit hatte ich HideSelection auf True stehen. Ich lerne aus Fehlern nicht
Den gleichen Fehler hatte ich schon mal vor einiger Zeit! Da hatte ich auch Stunden gesucht!
Ich werde die Kompo bearbeiten das die gleich immer False ist.

Vielen Dank an Euch Alle.

Heike