Radiobutton per Taste auslösen?

[markus5766h]

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 . . .

[Bummi]

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;

[Astobix]

Zitat von markus5766h:

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

Zitat von Bummi:

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?

[Bummi]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_DOWN: Caption := 'Down';
    VK_UP: Caption := 'Up';
    VK_LEFT: Caption := 'Left';
    VK_RIGHT: Caption := 'Right';
  end;
end;

[Astobix]

Zitat von Bummi:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_DOWN: Caption := 'Down';
    VK_UP: Caption := 'Up';
    VK_LEFT: Caption := 'Left';
    VK_RIGHT: Caption := 'Right';
  end;
end;

Der kennt VK_DOWN etc. aber nicht :S Wo muss man denn angeben, was VK_DOWN ist?

[DeddyH]

Binde mal die Unit LCLType mit ein.
uses ..., LCLType;

[markus5766h]

Zitat von Astobix:

Der kennt VK_DOWN etc. aber nicht :S Wo muss man denn angeben, was VK_DOWN ist?

virtuelle Tastaturcodes : http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

ob die in Lazarus / FreePascal bekannt bzw. so verwendbar sind, weiß ich leider nicht -
in Delphi funktioniert's.
. . . siehe Post #8

[Astobix]

Okay, vielen Dank für eure antworten
Das hier kann meinetwegen geschlossen werden

Gruß
Astobix