Kako da mi virtual key tipka enter ponasa se kao tipka tab, odnosno kad kliknem enter da
prelazi iz polja u polje i sl..
prelazi iz polja u polje i sl..
virtual key komanda
Zaključano
Zakačeno
> Kako da mi virtual key tipka enter ponasa se kao tipka tab, odnosno kad kliknem enter da
> prelazi iz polja u polje i sl..
Otkucaj u polju za pretragu "edit prelazak" i odaberi pretragu ovog foruma.
> prelazi iz polja u polje i sl..
Otkucaj u polju za pretragu "edit prelazak" i odaberi pretragu ovog foruma.
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
Pogledao sam i koliko vidim ne funkcionira, dakle treba mi kad pritisnem tipku enter da ima isti efekat kao tipka tab (jer je korisnici ne vole koristiti)
Jesi siguran da si tražio? :)
Ajde da probamo ovako:
http://delphi.about.com/od/vclusing/a/entertab.htm
Ajde da probamo ovako:
http://delphi.about.com/od/vclusing/a/entertab.htm
Potpis
viking ®
> Pogledao sam i koliko vidim ne funkcionira, dakle treba mi kad pritisnem tipku enter da ima isti efekat kao tipka tab (jer je korisnici ne vole koristiti)
Onda nisi napisao kako treba, pokaži kod.
Onda nisi napisao kako treba, pokaži kod.
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
OnKeyDown:
Code:
if Key = VK_RETURN then
if HiWord(GetKeyState (VK_SHIFT)) <> 0 then
SelectNext (Sender as TWinControl, False, True)
else
SelectNext (Sender as TWinControl, True, True);
if Key = VK_RETURN then
if HiWord(GetKeyState (VK_SHIFT)) <> 0 then
SelectNext (Sender as TWinControl, False, True)
else
SelectNext (Sender as TWinControl, True, True);
Potpis
Someone's sitting in the shade today because someone planted a tree a long time ago.
A može i OnKeyPress
If Key = #13 then begin
Key := #0;
SelectNext(ActiveControl, True, True);
end;
If Key = #13 then begin
Key := #0;
SelectNext(ActiveControl, True, True);
end;
Meni se cuje ono bum (sema windows default zvukova kada pritisnem enter). Da li bi moglo da se to nekako ponisti? Kada pritisnem enter da mi lepo udje u drugo polje a bez tog zvuka.. Znate na sta mislim..
U dogadjaju OnKeyDown (ne u OnKeyPress!), postavi Key:=#0 nakon ispitivanja Key vrednosti.
> U dogadjaju OnKeyDown (ne u OnKeyPress!), postavi Key:=#0 nakon ispitivanja Key vrednosti.
Baš treba OnKeyPress, a njemu ne radi zato što je nešto loše napisao.
Baš treba OnKeyPress, a njemu ne radi zato što je nešto loše napisao.
Potpis
Do not be a help vampire (http://slash7.com/pages/vampires), use the google.
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html
Mea culpa.
Da, moja greška. Treba u OnKeyPress.
(Znao sam da u jednoj ne može, pa sam pomislio da ako ne radi, mora biti ona druga).
Hvala.
Da, moja greška. Treba u OnKeyPress.
(Znao sam da u jednoj ne može, pa sam pomislio da ako ne radi, mora biti ona druga).
Hvala.