Tastenbestätigung in Delphi

[Kurt56]

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