Bei Enter wort einfügen und neue Zeile

[Aya]

Hi,

das ganze geht noch viel leichter...
mit Richedit.SelText kannst du einen Text an der CursorPosition einfügen:

Delphi-Quellcode:

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=VK_RETURN then begin
    RichEdit1.SelAttributes.Color:=clRed;
    RichEdit1.SelText:='
';
    RichEdit1.SelAttributes.Color:=RichEdit1.Font.Color;
  end;
end;

Au'revoir,
Aya~