Einzelnen Beitrag anzeigen

m.wollert

Registriert seit: 18. Aug 2003
Ort: Heilbronn
92 Beiträge
 
FreePascal / Lazarus
 
#4

Re: Eingabe von Buchstaben verhindern

  Alt 27. Jan 2005, 21:29
Delphi-Quellcode:
const CKeys = ['0'..'9'];
begin
  if Key not in CKeys then Key := #0; // Key := #0 -> Key beinhaltet 'nichts' (wobei nichts ja auch nicht richtig ist - es beinhaltet ja den Wert "0" ;)
end;
Ich hoffe das passt gleich, habe kein Delphi offen. Solltest aber bedenken, daß Du auch noch die Back-Space-Taste drücken können solltest - erweiter dann die Konstante einfach so:
const CKeys = ['0'..'9', #9, #8]; // etc... Sollte es nicht klappen dann musst Du mit dem Code etwas rumtüfteln. Zudem muss ich Stefan2005 mit dem Ereignis zustimmen.

MfG Michael Wollert
Michael
  Mit Zitat antworten Zitat