Herausfinden, in welcher Zeile der Cursor ist (RichEdit)

[Matze]

Hi!

Ja, die Überschrift sagt es schon. Wie bekomme ich den integer-Wert der Zeile, indem sich der Cursor des RichEdit befindet?

Ich möchte folgendes machen:

Sobald ich im RichEdit auf Enter drücke, dann soll der Cursor in die neue Zeile springen und in dieser neuen Zeile etwas einfügen.

Das könnte ich dann mit:

Code:

RichEdit1.Lines.Exchange(0,Zeile);
RichEdit1.SelText:='Text';

Im Forum wird nur angesprochen, sobald man Enter drückt, dass dann in der "alten" Zeile etwas eingefügt wird.

Weiß das jemand, wie's geht?

[Tpercon]

Wie wäre es mit
RichEdit1.CaretPos

[Matze]

Dann kommt bei:

Code:

RichEdit1.Lines.Exchange(0,RichEdit1.CaretPos);

Diese Fehlermeldung:

Zitat:

[Fehler] Unit1.pas(810): Inkompatible Typen: 'Integer' und 'TPoint'

Trotzdem Danke!

[Tpercon]

Aus dem Kopf, müßte aber stimmen!
RichEdit1.CaretPos.Y

[Matze]

Wenn ich das so schreibe:

Delphi-Quellcode:

RichEdit1.Lines.Exchange(0,RichEdit1.CaretPos.Y);
  RichEdit1.Lines.Strings[richedit1.CaretPos.Y]:='

';

dann wird die ganze Zeile durch "

" ersetzt!

PS: Der Cursor sollte dann auch nach dem "

" blinken.

[Illuminator-23-5]

Delphi-Quellcode:

RichEdit1.Lines.Exchange(0,RichEdit1.CaretPos.Y);
  RichEdit1.Lines.Strings[richedit1.CaretPos.Y]:=RichEdit1.Lines.Strings[richedit1.CaretPos.Y]+'

';

[Tpercon]

Zitat von Matze:

Delphi-Quellcode:

RichEdit1.Lines.Exchange(0,RichEdit1.CaretPos.Y);
  RichEdit1.Lines.Strings[richedit1.CaretPos.Y]:='

';

Du läßt ja auch die ganze Zeile ersetzten!
Probier mal:

Delphi-Quellcode:

RichEdit1.Lines.Strings[richedit1.CaretPos.Y]:=RichEdit1.Lines.Strings[richedit1.CaretPos.Y]+'

';

Das Setzten des Cursors müßtest du alleine hinbekommen, gab es auch schon oft genug hier im Forum.

[Matze]

Delphi-Quellcode:

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return then
  RichEdit1.Lines.Exchange(0,RichEdit1.CaretPos.Y);
  RichEdit1.Lines.Strings[richedit1.CaretPos.Y]:=RichEdit1.Lines.Strings[richedit1.CaretPos.Y]+'

';
end;

Danke euch beiden. (war das Selbe) aber es geht nicht, da verschiebt es dann Zeilen.

Wie muss ich das dann eingeben, dass der Cursor nach dem "

" blinkt??

Danke!

[Matze]

Mit dem Code kann man nicht mal mehr copy&Paste machen.