Richedit: Gehe zu Zeile

[mirage228]

Hallo,

ich wollte für mein RichEdit die Funktion "Gehe zu Zeile..." programmieren, mit der man zu einer Zeile springen kann und der Cursor am Anfang dieser Zeile ist!
Wie stelle ich das am besten an?

thx
mirage228

[Basic-Master]

ist leicht:

Delphi-Quellcode:

var Pos:TPoint;
Begin
Pos.X := 0;
Pos.Y := deinezeile;
Richedit1.CaretPos := Pos;
end;

[mirage228]

Hi, danke für den Tip, nur leider sagt der

Undefinierter Bezeichner: CaretPos

Ich hab Delphi 3 Professional um Projekt noch zusätzlich die Units RichEdit, ShellApi und Clipbrd eingebunden!

[Alexander]

es kann durch aus sein dass es bei D3 diese Eigenschaft anders hieß oder noch gar nicht gab. Such einfach mal in der Hilfe nach Carer oder in dem Menü dass aufpoppt wenn du einen Punkt (nach Rcihedit.) geschriebn hast.
Sollte es tatsächlich nicht dabei sein, kann man das auch noch per API lösen.
Hier sollte was drinne stehen:
http://msdn.microsoft.com/library/de...n_editctls.asp

[mirage228]

Also ich hab jetzt nichts entsprechendes gefunden.
Komischerweise auch nicht in der MSDN. EM_LINESCROLL kommt dem schon nahe, aber der Cursor bleibt an der selben stelle...

[Christian Seehase]

Moin Mirage,

so funktioniert's:

Delphi-Quellcode:

procedure TfrmMAIN.CaretToLine(const AiLine : integer);
begin
  RichEdit1.SelStart := SendMessage(RichEdit1.Handle,EM_LINEINDEX,AiLine,0);
  SendMessage(RichEdit1.Handle,EM_SCROLLCARET,0,0);
end;

[mirage228]

danke, jetzt gehts