Leertaste ändert Itemindex einer Radiogroup

[nr9]

Zitat von Sharky:

Hast Du irgendeinen Code im OnKeypress/KeyDown usw. stehen?

Ja, folgendes:

Delphi-Quellcode:

procedure TMainFrm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 Case Key Of
    VK_F5 // [F5]
      : Begin //Neuer Datensatz
          key := 0;
          btnNeueWareClick(Sender);
        End;
    VK_F12 // [F12]
      : Begin  //Beenden
          key := 0;
          btnExitClick(Sender);
        End;
  End; //case
end;

Delphi-Quellcode:

procedure TMainFrm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  Case Key Of
    #13 //VK_Return // Enter
      : If (ActiveControl is TWinControl) then
        begin
          if (TWinControl(ActiveControl).Tag = 0) Then // nächstes Eingabefeld
          Begin
            Key := #0;
            SendMessage(Self.Handle, WM_NEXTDLGCTL, 0, 0);
          End
          else
          begin
            Key := #0;
            btnAnzeigenClick(Sender);
          end;
        end;
    #27 //VK_Escape // Escape
      : Begin
          Key := #0;
          FelderLeeren;
          edtVerwendung.SetFocus;
        End;
    #43 //VK_ADD // [+] (nummernblock)
      : Begin //Anzeigen
          key := #0;
          btnAnzeigenClick(Sender);
        End;
  End;//Case
end;