Hallo Leute,
ich möchte gerne aus einem MemoFeld einen eigenen "Kommandozeilen-Interpreter" entwickeln.
Mein Problem ist, der Schreibschutz. Ich könnte, wenn ich den schreibschutz deaktiviere, einfach die eingabe in zeile 4 mit einem onKeyPress auswerten. Das Problem ist jedoch, dass der user die vorangegangenen Zeilen einfach löschen kann.
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| function CurrentUserName: String;
var
u: array[0..127] of Char;
sz: DWord;
begin
sz:=SizeOf(u);
GetUserName(u,sz);
Result:=u;
end;
procedure Tmain_form.FormCreate(Sender: TObject);
var
line2: String;
begin
line2 := 'Sie sind als folgender Nutzer angemeldet: "'+ CurrentUserName + '"';
iofeld.Lines.Add('Herzlich Willkommen');
iofeld.Lines.Add(line2);
iofeld.Lines.Add('Bitte geben sie ein Passwort ein:');
end; |
Kann man MemoFelder zeilenweise schreibschützen oder kann ich das ganze auch ohne ein Memofeld auf einfache Art lösen?
naja vllt. hat jemand eine Idee!
Ich Danke Im Voraus
Steffen
