Tiedämme, että yleensä Tab-näppäimen painallus siirtää syöttötarkennuksen seuraavaan hallintaan ja Shift-Tab edelliseen lomakkeen välilehtijärjestyksessä. Kun työskentelet kanssa Windows-sovellukset, jotkut käyttäjät odottavat intuitiivisesti Enter-näppäimen käyttäytyvän kuin Tab-näppäin.
Alla olevat esimerkit on kirjoitettu olettamalla, että lomakkeessa ei ole oletuspainiketta. Kun lomakkeessasi on painike, jonka Oletusominaisuudeksi on asetettu True, paina Enter-painiketta runtime suorittaa kaikki painikkeen OnClick-tapahtumakäsittelyohjelman sisältämät koodit.
~~~~~~~~~~~~~~~~~~~~~~~~~
menettely TForm1.Edit1KeyPress (Lähettäjä: TObject; var-avain: Char);
alkaa
Jos avain = # 13, aloita sitten
Jos HiWord (GetKeyState (VK_SHIFT)) <> 0, niin
SelectNext (Lähettäjä nimellä TWinControl, False, True)
muu
SelectNext (Lähettäjä nimellä TWinControl, True, True);
Avain: = # 0
end;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
menettely TForm1.DBGrid1KeyPress (Lähettäjä: TObject; var-avain: Char);
alkaa
Jos avain = # 13, aloita sitten
Jos HiWord (GetKeyState (VK_SHIFT)) <> 0, aloita sitten
kanssa (Lähettäjä kuin TDBGrid) tekevät
jos valitaan indeksi> 0 sitten
valittu indeksi: = valittu indeksi - 1
muuten alkavat
Tietolähde. DataSet. ennen;
valittu indeksi: = kenttäluku - 1;
end;
loppu lopussa alkaa
kanssa (Lähettäjä kuin TDBGrid) tekevät
jos valitaan indeksi valittu indeksi: = valittu indeksi + 1
muuten alkavat
Tietolähde. DataSet. Seuraava;
valittu indeksi: = 0;
end;
end;
Avain: = # 0
end;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~