Jak kontrolować wpisywane znaki np. w TEdit
Ludomir
Czasem chcemy, żeby do edita dało się wpisać np. same cyfry. Aby to zrobić należy dać odpowiedni kod w zdarzeniui OnKeyDown:
var
KeysSet: set of Char;
begin
KeysSet := [#8, #11, #13, #28, #29, #48..#57]; //tu stawiamy jakie znaki są dozwolone + nawigacja (czyli np. kursory, home, itp.), wszystko w ASCII
if not(key in KeysSet) then
Key := #0;
Wpiszesz ich kod ascii, np
if Pos(Key, '0123456789' + #8 + #10 + #13 {itp, itd..}) = 0 then
jest latwiejszy sposob: w onkeypress wklepac
if Pos(Key, '0123456789' + #8) = 0 then
Key:=#0;
oczywiscie mozna sie domyslic ze jest to procedura umozliwiajaca wpisywanie tylko liczby ('0123456789' - no ale mozna wlkepac wszystko co sie chce miedzy apostrofy...)
a jak określisz np. kursor, przycisk Backpase, home, itp?