Memo mit KeyPress und String einfügen

[renekr]

Danke.

habe aber damit das Problem, das er mir eine neue Linie mit - macht, das ist ok, aber der Cursor hüpft in die nächste linie rein.

danke

## Habe es hinbekommen:

Bei Form Show

Delphi-Quellcode:

memo7.SelText :='-- ';
memo7.SelStart := Perform(EM_LINEINDEX, 0, 0) + 3;
Perform(EM_SCROLLCARET, 0, 0);

Bei Memo.Keypress

Delphi-Quellcode:

if (key=#13) then
    begin
        memo7.SelText :=#$d#$A'-- ';
        key := #0  ;
    end;