掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.