TradiogroupでOnKeyDownなどは拾えないでしょうか？ (ID:36461)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 これで伝わりますか？ procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if ActiveControl.ClassName = 'TGroupButton' then case Key of //RadioGroup を操作 VK_RETURN:with TRadioGroup(ActiveControl.Parent) do ShowMessage(Items[ItemIndex]); //ボタン自体を操作 VK_ESCAPE:TRadioButton(ActiveControl).Checked:=False; end; end;