Memo mit KeyPress und String einfügen

[renekr]

Hi,
habe ein denk ich mal banales Problem:

Habe in einem Memo Feld standard mäßig ein - stehen

(Das werte ich dan nals Tab aus in einer Stringlsite )

Geht darum:


Will wenn man hinter das - etws geschriben hat und Return drückt das in der nächsten zeile ein - steht und der Cursor dahinter steht!!!!


Das der Text im Memo am schluß so aussieht


- Testmemo text
- linie1
- linie2
- linie3



Denke das ist net schwer.
Onkeypress event mit
if key = #13 then
begin

....


danke.

[tomsel]

Delphi-Quellcode:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
   if (key=#13)and(memo1.Lines.Count > 0) then
      if memo1.Lines[pred(memo1.Lines.Count)][1] = '-' then begin
         memo1.Lines.Add('-');
         key := #0
      end
end;

Gruß
tomsel

[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;