[slikom] delphi - zamena tastera tab za enter
- From: _ Rajko _ <r.tomic@xxxxxxxxx>
- To: <slikom@xxxxxxxxxxxxx>
- Date: Thu, 29 Nov 2007 13:24:34 +0100
Svi znamo da pritiskom na taster [Tab] premestamo fokus na sledecu kontrolu
na formi. Isto tako kombinacija Ctrl+Tab, omogucavace prebacivanje fokusa na
prethodnu kontrolu u Tab redosledu (tab ordering). Korisnici koji su
koristili samo Windows programe znaju za ove tastere, ali zato korisnici
koji su prethodno koristili DOS programe, ocekuju da taster [Enter] ima istu
funkciju kao [Tab]. Ako u firmi recimo imate veliki broj korisnika/operatera
koji su navikli da tasterom [Enter] prelaze na sledece polje, moracete da im
prilagodite nove Windows-Delphi programe.
Pokrenite Delphi i novi projekt, te na praznu formu postavite tri tekst
polja (Edit), pa kod svakog od polja, unutar obradivaca dogadaja OnKeyPress,
dodajte sledeci programski kod:
Procedure TForm1.Edit1KeyPress
(Sender:TObject; var Key:Char);
begin
If Key=#13 Then
If HiWord(GetKeyState (VK_SHIFT)) <> 0 then
SelectNext (Sender as TWinControl, False, True)
Else
SelectNext (Sender as TWinControl, True, True);
Key:= #10
Primer koji je prikazan podrazumeva da za formu nije definisano
podrazumevano (default) dugme. Jer ako vasa forma poseduje dugme sa osobinom
Default postavljenom na True, svakim pritiskom na [Enter] izvrsice se
programski kod koji se nalazi unutar OnClick obradivaca dogadaja. Ovom
procedurom postigli smo da se taster [Enter] ponasa kao taster [Tab], kao i
da se [Shift+Enter] ponasa kao [Shift+Tab] (hod unazad na formi).
_ Rajko _
____________________
Za prijavu na ovu listu poslati poruku na adresu:
<slikom-request@xxxxxxxxxxxxx> i u polju za tekst upisati, subscribe
Za odjavu sa ove liste poslati poruku na adresu: <slikom-request@xxxxxxxxxxxxx>
i u polju za tekst upisati, unsubscribe
Za pristup arhivi poruka koristiti adresu:
//www.freelists.org/archives/slikom/
Login: username=slikom Password=mokils
____________________
Other related posts:
- » [slikom] delphi - zamena tastera tab za enter
