Víme, že obecně stisknutím klávesy Tab přesuneme fokus vstupu na další ovládací prvek a Shift-Tab na předchozí v pořadí ve formuláři tabulátoru. Při práci s Windows aplikace, někteří uživatelé intuitivně očekávají, že se klávesa Enter bude chovat jako klávesa Tab.
Příklady níže jsou psány s předpokladem, že ve formuláři není žádné výchozí tlačítko. Pokud formulář obsahuje tlačítko, jehož výchozí vlastnost je nastavena na hodnotu PRAVDA, stiskněte klávesu Enter runtime spustí jakýkoli kód obsažený v obslužném programu události OnClick tlačítka.
~~~~~~~~~~~~~~~~~~~~~~~~~
procedura TForm1.Edit1KeyPress (Odesílatel: TObject; Var Key: Char);
začít
Pokud klíč = # 13, začněte
Pokud HiWord (GetKeyState (VK_SHIFT)) <> 0, pak
Vyberte Další (Odesílatel jako TWinControl, False, True)
jiný
SelectNext (Odesílatel jako TWinControl, True, True);
Klíč: = # 0
konec;
konec;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
procedura TForm1.DBGrid1KeyPress (Odesílatel: TObject; Var Key: Char);
začít
Pokud klíč = # 13, začněte
Pokud HiWord (GetKeyState (VK_SHIFT)) <> 0, začněte
s (Odesílatel jako TDBGrid)
pokud je vybránaindex> 0, pak
selectedindex: = selectedindex - 1
jinak začít
Zdroj dat. DataSet. Předchozí;
selectedindex: = fieldcount - 1;
konec;
konec jinak začíná
s (Odesílatel jako TDBGrid)
pokud je vybránaindex selectedindex: = selectedindex + 1
jinak začít
Zdroj dat. DataSet. Další;
selectedindex: = 0;
konec;
konec;
Klíč: = # 0
konec;
konec;
~~~~~~~~~~~~~~~~~~~~~~~~~