Wenn du in der FORM die Einstellung=Eigenschaft "Keypreview" auf "true" gestellt hast,
kannst du das Ereignis "OnKeyPress" abfragen.
Dort ist der Tastencode, welcher gedrückt wurde.
(Mit dieser Prozedur kannst du die ENTER-Taste abfragen, um zum nächsten Feld zu springen)
Delphi-Quellcode:
procedure TMain.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
if not(ActiveControl is TButton) and
not(ActiveControl is TMemo) and
not(ActiveControl is Tdbgrid) and
not(ActiveControl is Tdbcheckbox) and
not(ActiveControl is TdbMemo) then
begin
Key:=#0;
Perform(WM_NextDlgCtl,0,0);
end;
{#8 : begin
Key:=#0;
Perform(WM_NextDlgCtl,1,0);
end;}
end;
end;
Die Entertaste =#13 springt zum nächsten Feld.
Die Rücktaste =#8 springt auf das vorherige Feld, ist aber im Beispiel auskommentiert