F1-F9 Tasten simulieren mit Hilfe von RadioButton´s

[Sharky]

Zitat von DeddyH:

Könntest Du nicht einfach mit case den ItemIndex der Radiogroup ermitteln und dementsprechend die Taste belegen?
...

Da die Tastencodes von F1 bis F9 ja aufeinander folgen muss man doch eigentlich nur den ItemIndex (oder den Tag des RadioButtons) zu dem "Startwert" addieren.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  dwKey: DWord;
begin
  if (RadioGroup1.ItemIndex <> -1) then
  begin
    dwKey := VK_F1 + RadioGroup1.itemIndex; // VK_F1 = 112
    myPostMessageA(Hwnd, WM_KEYDOWN, dwKey , MapVirtualKey(dwKey, 0));
  end;
end;