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!
Pomoc sa TEditom
Zaključano
Zakačeno
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
mislim da je to zgodno resenje
pozdravi
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
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
Potpis
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.
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.
Potpis
When something is hard to do, then it's not worth doing.