Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Maskedit i problem sa unosom

[es] :: Pascal / Delphi / Kylix :: Maskedit i problem sa unosom

[ Pregleda: 2605 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

MatezYU

Član broj: 4114
Poruke: 1586
*.adanet.co.yu.



+17 Profil

icon Maskedit i problem sa unosom22.11.2006. u 07:25 - pre 211 meseci
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
 
Odgovor na temu

mret
Radovan Bacovic
Senior Data Warehouse Developer
Kindred Group
Stockholm, Sweden

Član broj: 78386
Poruke: 62
*.energosoft.co.yu.

Sajt: www.kindredgroup.com


Profil

icon Re: Maskedit i problem sa unosom22.11.2006. u 07:50 - pre 211 meseci
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.

/*A sad odo` malo napolje*/
 
Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739



+92 Profil

icon Re: Maskedit i problem sa unosom22.11.2006. u 09:03 - pre 211 meseci
> 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.
 
Odgovor na temu

dogriz
Sombor

Član broj: 29744
Poruke: 259
*.so-sombor.com.

Sajt: dogriz.blogspot.com


+6 Profil

icon Re: Maskedit i problem sa unosom22.11.2006. u 13:04 - pre 211 meseci
Code:

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

[es] :: Pascal / Delphi / Kylix :: Maskedit i problem sa unosom

[ Pregleda: 2605 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.