[ milan_kol @ 01.11.2004. 22:34 ] @
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!
[ bancika @ 01.11.2004. 22:41 ] @
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
[ sasas @ 02.11.2004. 07:26 ] @
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.