掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
RadioGroupにKeyPressイベントを発生させたい (ID：31060)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TRadioGroup = class(ExtCtrls.TRadioGroup) published property OnKeyPress; end; procedure TForm4.FormCreate(Sender: TObject); begin RadioGroup1.OnKeyPress := RadioGroupKeyPress; end; procedure TForm4.RadioGroupKeyPress(Sender: TObject; var Key: Char); begin RadioGroup1.Buttons[Ord(Key)-49].Checked := True; end; --------------------------------------------------------------- procedure TForm4.FormCreate(Sender: TObject); begin KeyPreview := True; end; procedure TForm4.FormKeyPress(Sender: TObject; var Key: Char); var I: Integer; begin for I:=0 to RadioGroup1.Items.Count -1 do begin if RadioGroup1.Buttons[I].Focused = True then begin RadioGroup1.Buttons[Ord(Key)-49].Checked := True; end; end; end; のどちらか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.