Leertaste ändert Itemindex einer Radiogroup

[nr9]

Hallo zusammen.

Bei einem meiner Programme tritt folgendes Phänomen auf:

Auf einem Formular gibt es zwei Checkboxen und eine Radiogroup.
Wenn eine der Checkboxen den Fokus hat und mit der Leertaste gecheckt oder entcheckt( :gruebel: ) wird, springt zusätzlich automatisch der Fokus auf die Radiogroup und der Itemindex wird auf 9 gesetzt. Warum das passiert, ist mir unerklärlich. Das Formular behandelt zwar Tastatureingaben, aber dieses Verhalten ist nicht vorgesehen und auch nicht programmiert. Ich bekomme das einfach nicht in den Griff...

Hat von euch veilleicht jemand einen Tipp, woran das liegen könnte?
Bin für jeden Hinwei dankbar.

[Sharky]

Hai nr9,

ersteinmal: "Herzlich Willkommen in der Delphi-PRAXiS"

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

[nr9]

Zitat:

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;

[Sharky]

Zitat:

Zitat von nr9

...Ja, folgendes: ...

Hmm... da sehe ich nichts.
Hast Du noch besonderen Code im OnClick der CheckBox?

[nr9]

Nein, onClick der Checkboxen ist leer. Es passiert mit allen Checkboxen auf dem Formular. Und sowohl mit TCheckbox als auch mit TJvCheckbox...

[Sharky]

Hmmm... dann muss es an etwas besonderem Liegen.
Habe es eben getestet und es funktioniert so wie gewünscht.

Kannst Du mal ein Beispielprojekt anhängen?

[nr9]

Habe gerade rausgefunden woran es liegt:
Das Item, das immer automatisch ausgewählt wird heisst XYZ GmbH & Co. KG. Angezeigt wurde immer XYZ GmbH _Co. KG. Es wurde also ein Leerzeichen als Tastenkürzel integpretiert und deswegen markiert.
Allerdings dachte ich, dass diese Kürzel nur aktiv sind, wenn man gleichzeitig die Alt-Taste drückt. Aber das war wohl ein Irrtum...