Mehrere Tasten in einer Procedure abfragen?

[Bummi]

für Tab ins OnShortCut des Forms hängen

Delphi-Quellcode:

procedure TForm2.FormShortCut(var Msg: TWMKey; var Handled: Boolean);
var
  KeyCode: TShortCut;
begin
  KeyCode := Menus.ShortCut(Msg.CharCode, KeyDataToShiftState(Msg.KeyData));
  case KeyCode of
    VK_TAB: ShowMessage ('tab');
  else
    Exit;
  end;

  Handled := True;

end;

[FlatIron]

Ne schnellere Lösung wäre diese (TApplicationEvent aus der Registerkarte "Zusätzlich"):

Delphi-Quellcode:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if msg.message = WM_KEYDOWN then
  begin
    if msg.wParam = 9 then
    begin
      ShowMessage('Tab wurde gedrückt!');
    end;
  end;
end;

[DeddyH]

Ich hätte eher an sowas gedacht (Events sind allen betroffenen Edits per OI zugewiesen):

Delphi-Quellcode:

procedure TfrmTest.Edit1Exit(Sender: TObject);
var
  Edit: TEdit;
  dummy: integer;
begin
  Edit := Sender as TEdit;
  if (Edit.Text <> '') then
    if not TryStrToInt(Edit.Text, dummy) then
      begin
        ShowMessage('Bitte nur Zahlen eintragen');
        Edit.SetFocus;
      end;
end;

procedure TfrmTest.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    Perform(WM_NEXTDLGCTL, 0, 0);
end;