Vi vet at generelt trykker du på Tab-tasten inngangsfokus til neste kontroll og Shift-Tab til forrige i tabulatorrekkefølgen på skjemaet. Når du jobber med Windows-applikasjoner, forventer noen brukere intuitivt at Enter-tasten skal oppføre seg som en Tab-tast.
Eksempler nedenfor er skrevet med den forutsetning at det ikke er noen standardknapp på skjemaet. Når skjemaet inneholder en knapp hvis standardegenskap er satt til True, trykker du på Enter på runtime kjører hvilken som helst kode som finnes i knappens OnClick-hendelsesbehandler.
~~~~~~~~~~~~~~~~~~~~~~~~~
prosedyre TForm1.Edit1KeyPress (Avsender: TObject; var Key: Char);
begynne
Hvis nøkkel = # 13, så begynn
Hvis HiWord (GetKeyState (VK_SHIFT)) <> 0, da
SelectNext (Avsender som TWinControl, False, True)
ellers
SelectNext (Avsender som TWinControl, True, True);
Nøkkel: = # 0
slutt;
slutt;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
prosedyre TForm1.DBGrid1KeyPress (Avsender: TObject; var Key: Char);
begynne
Hvis nøkkel = # 13, så begynn
Hvis HiWord (GetKeyState (VK_SHIFT)) <> 0, begynner du
med (Avsender som TDBGrid) gjør
hvis valgt indeks> 0 da
valgtindex: = valgtindeks - 1
annet begynner
Datakilde. Datasett. I forkant;
valgt indeks: = feltkonto - 1;
slutt;
slutt annet begynner
med (Avsender som TDBGrid) gjør
hvis valgt indeks valgt indeks: = valgt indeks + 1
annet begynner
Datakilde. Datasett. Neste;
valgt indeks: = 0;
slutt;
slutt;
Nøkkel: = # 0
slutt;
slutt;
~~~~~~~~~~~~~~~~~~~~~~~~~