Bei Enter wort einfügen und neue Zeile

[Stanlay Hanks]

Und weil ich so pingelig bin:

Dann gibt's das erste mal, wenn ich Enter drücke, eine Leerzeile....

Du müsstest also noch abfragen, ob du grade in der ersten Zeile bist.

Delphi-Quellcode:

if Key=VK_RETURN then begin
    RichEdit1.SelAttributes.Color:=clRed;
    IF RichEdit1.CaretPos.Y <> 0 THEN
    RichEdit1.SelText:=#13#10+'
'
    ELSE
    RichEdit1.SelText:='
';
    RichEdit1.SelAttributes.Color:=RichEdit1.Font.Color;
  end;