Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - MemoFeld als Interpreter


sritter - So 01.09.02 12:53
Titel: MemoFeld als Interpreter
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


XPert - So 01.09.02 13:52

memofeld kann man schreibschützen! stell einfach ein:
enabled=False;
dann läuft das schon :wink:


KeinePanik - So 01.09.02 16:32

@xpert:

Das war wohl nicht die Frage !?

@sritter:

Ich würde es vielleicht mit einem Dialog machen, der sich an der betreffenden Zeile öffnet !