Wir wissen, dass durch Drücken der Tabulatortaste im Allgemeinen der Eingabefokus zum nächsten Steuerelement und die Umschalttaste zum vorherigen in der Tabulatorreihenfolge des Formulars verschoben wird. Bei der Arbeit mit Windows-AnwendungenEinige Benutzer erwarten intuitiv, dass sich die Eingabetaste wie eine Tabulatortaste verhält.
Die folgenden Beispiele basieren auf der Annahme, dass das Formular keine Standardschaltfläche enthält. Wenn Ihr Formular eine Schaltfläche enthält, deren Standardeigenschaft auf True festgelegt ist, drücken Sie die Eingabetaste bei Laufzeit führt jeden Code aus, der im OnClick-Ereignishandler der Schaltfläche enthalten ist.
~~~~~~~~~~~~~~~~~~~~~~~~~
Prozedur TForm1.Edit1KeyPress (Absender: TObject; var Key: Char);
Start
Wenn Key = # 13, dann beginne
Wenn HiWord (GetKeyState (VK_SHIFT)) <> 0 dann
SelectNext (Absender als TWinControl, False, True)
sonst
SelectNext (Absender als TWinControl, True, True);
Schlüssel: = # 0
Ende;
Ende;
~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~
Prozedur TForm1.DBGrid1KeyPress (Absender: TObject; var Key: Char);
Start
Wenn Key = # 13, dann beginne
Wenn HiWord (GetKeyState (VK_SHIFT)) <> 0 ist, beginnen Sie
mit (Absender als TDBGrid) tun
wenn selectindex> 0 dann
selectedindex: = selectedindex - 1
sonst fange an
Datenquelle. DataSet. Prior;
selectedindex: = fieldcount - 1;
Ende;
Ende sonst beginnen
mit (Absender als TDBGrid) tun
wenn selectedindex selectedindex: = selectedindex + 1
sonst fange an
Datenquelle. DataSet. Nächster;
ausgewählter Index: = 0;
Ende;
Ende;
Schlüssel: = # 0
Ende;
Ende;
~~~~~~~~~~~~~~~~~~~~~~~~~