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!