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

MaskEdit i formati za unos

[es] :: Pascal / Delphi / Kylix :: MaskEdit i formati za unos

[ Pregleda: 3247 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

mzarko

Član broj: 33636
Poruke: 80
*.ptt.yu.



Profil

icon MaskEdit i formati za unos05.04.2005. u 18:05 - pre 208 meseci
Na koji nacin se u MaskEdit postavlja zadati format
npr. da se vrsi novcani unos u formatu 100.000,00, tako
da se moze uneti i veci i manji iznos (1.233,11 ili 12.222.222,15).
Kao i kada se zada odredjeni format u MaskEdit 123-123-123 i cim
se ne ispuni zadat uslov da pojavi poruku o gresci.
 
Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.



+1 Profil

icon Re: MaskEdit i formati za unos05.04.2005. u 18:39 - pre 208 meseci
Format zadajes tako sto ga upises u polje EditMask. Formate pogledaj u helpu TEditMask.

MaskEdit1.EditMask :='9999.99';


Za zvucni signal prilikom greske mozes da koristis BeepOnError property.

MaskEdit1.BeepOnError:=True;

Ako hoces da ispises poruku trebalo bi da napravis svoju klasu od TMaskEdit i u njoj da nasledis metodu:
procedure ValidateError; virtual;
Tamo posle mozes da odradis poruku o gresci koja ce da zameni zvucni signal.




 
Odgovor na temu

mzarko

Član broj: 33636
Poruke: 80
*.ptt.yu.



Profil

icon Re: MaskEdit i formati za unos05.04.2005. u 21:08 - pre 208 meseci
Toyo da li mozes da mi pokazes kako da napravim klasu od TMaskEdita za nasledjivanja metode sa porukom o gresci.

Kao i na koji nacin ako je zadan format '9999.99' a upisu se samo 4 cifre tj 9999 i da prilikom izlaska iz MaskEdita da se upisane cifre pomere i da se nalaze uz desnu stranu i da se pojavi 99.99
 
Odgovor na temu

Toyo

Član broj: 45193
Poruke: 227
*.kovnet.co.yu.



+1 Profil

icon Re: MaskEdit i formati za unos06.04.2005. u 00:23 - pre 208 meseci
Eeee sad vidim sta hoces, ali to nece ici tako lako. Ako hoces da pravis nove komponente, potrazi medju topicima "Dodavanje novih komponenti", mislim da Srki_82 objasnjavao kako se to radi.

A za ovo sto tebi treba, bice ti dobar i obican Edit (bez maske). Sve sto treba da uradis, je sledece:

Kreiraj novi Edit, idi na event OnExit, dupli klik.
Pojavice ti se procedura TForm1.Edit1Exit.
Umesto nje upisi ovaj kod, pa ga menjaj po potrebi.

Ne dozvoljava tekst, samo unos ispravnih brojeva, sa ili bez zareza.
Code:

procedure TForm1.Edit1Exit(Sender: TObject);
var
  B:Real;
  i,Tacaka:Integer;
  Ok:Boolean;
begin
    Tacaka := 0;
    Ok := True;
    if Edit1.text='' then
      Edit1.Text:='0';
    for i := 1 to length(edit1.text) do
      begin
        if edit1.Text[i]='.' then
          inc(Tacaka)
        else
          ok := ok and (ord(edit1.Text[i])>= ord('0'))and (ord(edit1.Text[i])<= ord('9'));
      end;
    if Ok and (tacaka <2) then
      begin
        B:= strtofloat(edit1.text);
        edit1.Text:= format('%20.2f',[b]);
      end
    else
       begin
          showmessage('greska');
          edit1.setfocus; 
       end;
end;
 
Odgovor na temu

mzarko

Član broj: 33636
Poruke: 80
*.ptt.yu.



Profil

icon Re: MaskEdit i formati za unos06.04.2005. u 15:58 - pre 208 meseci
Toyo hvala na odgovoru
 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: MaskEdit i formati za unos

[ Pregleda: 3247 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

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