Hallo zusammen
Ich habe eine Memobox und möchte diese auf eine gewisse Zeilenanzahl beschränken.
Also ab der 4. Zeile darf "Enter" nicht mehr funktionieren.
Ich muss aber innerhalb meiner Memo-Box mit CTRL-Enter drücken, damit eine zusätzliche Zeile generiert wird.
Im Anhang mein Code:
Delphi-Quellcode:
procedure Tfrm_Test.mem_TestChange(Sender: TObject);
begin
inherited;
if mem_Test.Lines.Count > 4 then
mem_Test.Lines.Delete(mem_Test.Lines.Count - 1);
end;
procedure Tfrm_Test.mem_TestKeyPress(
Sender: TObject; var Key: Char);
begin
inherited;
if (mem_Test.Lines.Count = 4) and (Key = #$A) then // hier Frage Wieso muss mit #$A statt #13 abgefragt werden? Ich weiss nicht was #$A ist? Habe ich mit Debug herausgefunden.
begin
Key := ' '; // hier statt ' ' würde ich gerne auf Blank stellen geht aber nicht...
end;
end;
Frage 1: Was ist #$A ? (habe ich mit Debuggen herausgefunden...
Frage 2: Statt Key auf ' ' zu setzen würde ich Key einfach gerne auf Blank setzen. '' geht aber nicht..
Kann das ganze etwas eleganter programmiert werden?
Vielen Dank!