[ MatezYU @ 22.11.2006. 07:25 ] @
Kako mogu da odradim da mi maskedit dozvoljava unos samo brojeva a ne slova.. Kada postavim za maskedit: 0000000;1; on mi trazi da ispunim sva polja brojevima. Meni treba recimo da ogranicim unos na 7 polja i da dozvoljene vrednosti budu samo brojevi.. Ali nebitno koliko se unese, moze i dvocifren i trocifren broj..
U gornjem slucaju mi trazi da napisem npr. 0000023. A ja bih samo 23. Posle bi ta vrednost trebala da se koristi kao integer..
Hvala
[ mret @ 22.11.2006. 07:50 ] @
Mozda ne treba da koristis maskedit
nego OnKeyPress event stavis kod (ovako nekako)

if key not in ['0'..'9',#8] then
key=#13;
beep;

i to ti daje mogucnost da unosis samo slova i da brises iz polja
nisam siguran da je kod 100% tacan ali ideja je takva...
r.
[ savkic @ 22.11.2006. 09:03 ] @
> Kako mogu da odradim da mi maskedit dozvoljava unos samo brojeva a ne slova.. Kada
> postavim za maskedit: 0000000;1; on mi trazi da ispunim sva polja brojevima.

0 označava obavezan karakter, stavi 9.
[ dogriz @ 22.11.2006. 13:04 ] @
Code:

procedure TForm1.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in ['0'..'9', #8]) then
    Key:=#0; //#8 - backspace
end;