Richedit: In Zeile springen

[Opa Knack]

Hallo,

damit klappt's leider nicht (wobei natürlich nicht auszuschließen ist, dass ich mal wieder was falsch gemacht habe).

Also:

Der Text wird wie folgt selektiert:

Delphi-Quellcode:

procedure TForm1.FindDialog1Find(Sender: TObject);
var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
  with ResultEdit do
  begin
    if SelLength <> 0 then

      StartPos := SelStart + SelLength
    else

      StartPos := 0;

    ToEnd := Length(Text) - StartPos;

    FoundAt := FindText(FindDialog1.FindText, StartPos, ToEnd, []);
    if FoundAt <> -1 then
    begin
      ResultEdit.SetFocus;
      ResultEdit.SelStart := FoundAt;
      ResultEdit.SelLength := Length(FindDialog1.FindText);
    end
    else
    Showmessage('Unable to find');
  end;
end;

(aus der OH)

Ich habe jetzt versucht, die von Dir genannten Zeilen einzubinden, aber leider zeigt das gar keinen Effekt. Hast Du einen Tipp, wo ich die Anweisungen wie einbinden kann?

Danke
Opa