Delphi memo und Zeilenanfangstring

Thema durchsuchen

Ansicht

Themen-Optionen

memo und Zeilenanfangstring

Ein Thema von richard_boderich · begonnen am 14. Jul 2005 · letzter Beitrag vom 14. Jul 2005

Vorheriger Beitrag

Nächster Beitrag

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge

Re: memo und Zeilenanfangstring

14. Jul 2005, 12:32

Oder so:

markieren

Delphi-Quellcode:

			procedure TDemoForm.MemoKeyPress(Sender: TObject; var Key: Char);

const

  LinePrefix = '[INDX]';

begin

  if key = #13 then begin

    Memo.SelText := #13#10 + LinePrefix;

    Memo.SelStart := Memo.SelStart + Memo.SelLength;

    key := #0;

  end;

end;