Vi ved, at man ved at trykke på Tab-tasten generelt flytter inputfokus til næste kontrol og Shift-Tab til foregående i formularens faneblade. Når du arbejder med Windows-applikationer, forventer nogle brugere intuitivt, at Enter-tasten opfører sig som en Tab-tast.
Eksempler nedenfor er skrevet med den antagelse, at der ikke er nogen standardknap på formularen. Når din formular indeholder en knap, hvis standardegenskab er indstillet til True, skal du trykke på Enter på runtime udfører enhver kode, der findes i knapens OnClick-begivenhedshåndterer.
~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.Edit1KeyPress (Afsender: TObject; var nøgle: Char);
begynde
Hvis nøgle = # 13 Begynd derefter
Hvis HiWord (GetKeyState (VK_SHIFT)) <> 0, derefter
SelectNext (Afsender som TWinControl, False, True)
andet
SelectNext (Afsender som TWinControl, True, True);
Nøgle: = # 0
ende;
ende;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
procedure TForm1.DBGrid1KeyPress (Afsender: TObject; var nøgle: Char);
begynde
Hvis nøgle = # 13 Begynd derefter
Hvis HiWord (GetKeyState (VK_SHIFT)) <> 0, start derefter
med (Afsender som TDBGrid) gør
hvis valgt indeks> 0 derefter
valgt indeks: = valgt indeks - 1
ellers begynder
Datakilde. DataSet. Forud;
valgt indeks: = feltantal - 1;
ende;
slut andet begynder
med (Afsender som TDBGrid) gør
hvis valgt indeks valgt indeks: = valgt indeks + 1
ellers begynder
Datakilde. DataSet. Næste;
valgt indeks: = 0;
ende;
ende;
Nøgle: = # 0
ende;
ende;
~~~~~~~~~~~~~~~~~~~~~~~~~