[es] - Pomoc sa TEditom

Srodne teme

Kliknite za generisanje liste srodnih tema...

Navigacija

Brisanje liste

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

milan_kol
Beograd

Član broj: 6463
Poruke: 113
*.vdial.verat.net.

Profil

Pomoc sa TEditom

^{01.11.2004. u 22:34 - pre 237 meseci}

Pravim nesto kao Mastermind, s tim sto umesto boja koristim brojeve! e, sad javalja se problem (kao i uvek) sa TEditom, u koji se unose brojevi, stavim 4 tedita jedan za drugim, namestim da primaju samo po jedan karakter... e sad... kako da namestim da onog momenta kad se ukuca 1 broj u jedan tedit kursor odmah predje u drugi? da ne mora korisnik da ppritiska tab ili da klikce u onaj drugi!

Odgovor na temu

bancika
Branislav Stojkovic

Član broj: 24844
Poruke: 631
213.244.197.*

Sajt: www.diy-fever.com

+1 Profil

Re: Pomoc sa TEditom

^{01.11.2004. u 22:41 - pre 237 meseci}

pod pretpostavkom da su ti editi Edit1..Edit4 uradi sledece
Napravi zajednicki dogadjaj za Edit1, Edit2 i Edit3 za OnChange i promeni im svojstva Tag na 2, 3, 4 redom.
u Onchange Stavi

Code:

begin
if Length((Sender as TEdit).Text) = 1 then
(FindComponent('Edit' + IntToStr((Sender as TEdit).Tag)) as TEdit).SetFocus
end

mislim da je to zgodno resenje
pozdravi

Ride the rainbow, crack the sky

DIY gitare, pojacala i efekti www.diy-fever.com

Odgovor na temu

sasas
Saša Slavnić
radim za neke švabe

Član broj: 35478
Poruke: 617
*.zaslon-telecom.si.

Profil

Re: Pomoc sa TEditom

^{02.11.2004. u 07:26 - pre 237 meseci}

Malo jednostavnije:

procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(TEdit(Sender).Text) = 1 then
self.SelectNext(TEdit(sender), true, true);
end;

Samo treba podesiti lepo tab order (edit1.tabodrer = 1, edit2.tabodrer = 2, itd.)

ss.

When something is hard to do, then it's not worth doing.

Odgovor na temu