Einzelnen Beitrag anzeigen

Astobix

Registriert seit: 26. Dez 2012
26 Beiträge
 
Delphi 6 Personal
 
#5

AW: Radiobutton per Taste auslösen?

  Alt 26. Dez 2012, 17:22
Hallo,

warum nicht direkt auf der Form die virtuellen Keys abfragen
(im Ereignis OnKeyDown)
z.B. vk_Left, vk_Right, vk_Down, vk_Up für die Pfeiltasten . . .
Was genau müsste ich da denn machen? Also welchen Quellcode müsste ich im Ereignis OnKeyDown schreiben? Und muss ich vorher vk_Left irgendwo als Variable/Taste oder so angeben?

Danke schon mal an die recht schnellen Antworten



Ich würde keine Radiobuttons verwenden, sondern den Zustand in einem "NichtWincontrol" darstellen. Bei Dir dürften die automatischen &x selectionen kollidieren mit mit den KeyDownroutinen des Elementes welches gerade den Focus hat und dessen welches durch &x gewählt wird. Wenn Du bei RadioButtons bleiben willst würde ich die &'s aus den Captions entfernen und den Code eindampfen auf:

Delphi-Quellcode:
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
    RadioButton1.Checked := key='w';
    RadioButton2.Checked := key='a';
    RadioButton3.Checked := key='s';
    RadioButton4.Checked := key='d';
end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   RadioButton5.Checked :=true;
end;
Wow, genau dass was ich suchte! Danke Aber ich bin neugierig geworden von dem oberen Beitrag mit den Virtuellen Keys. Kann mir das einer noch erklären?
  Mit Zitat antworten Zitat