Temporär habe ich folgendes versucht:
Delphi-Quellcode:
procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#08 then
begin
if length(Memo1.Lines[0])=6 then key:=#0;
end;
end;
key #08 ist BACKSPACE laut
ASCII, die Länge des Stringes 'shell>' ist 6, und wenn diese Zahl erreicht wird, dann wird die BACKSPACE-Taste blockiert, sodass sich das dadurch nicht löschen lässt...
Für die Erste Zeile des Memos wäre es geschafft...
Und Zeile 2 ist/sollte ..Lines[1] sein?
