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

名前

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

本文 こっちのほうがわかりやすいか？ type TForm3 = class(TForm) RadioGroup1: TRadioGroup; procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure FormCreate(Sender: TObject); private { Private 宣言 } public procedure RadioGroupKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); end; var Form3: TForm3; implementation {$R *.dfm} procedure TForm3.FormCreate(Sender: TObject); var I: Integer; begin for I:=0 to RadioGroup1.Items.Count -1 do begin RadioGroup1.Buttons[I].OnKeyDown := RadioGroupKeyDown; end; end; procedure TForm3.RadioGroupKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin Exit; end;