掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TabStopについｔ (ID:15907)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TRadioGroupの子コントロールであるTRadioButtonのTabStopプロパティを操作する必要があります。 例としては下記のように行います。 type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; RadioGroup1: TRadioGroup; procedure FormCreate(Sender: TObject); procedure RadioGroup1Click(Sender: TObject); private public end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); var I : Integer; begin for I:= 0 to RadioGroup1.ControlCount - 1 do TRadioButton(RadioGroup1.Controls[I]).TabStop:= False; end; // TRadioButtonの仕様上CheckedプロパティがTrueになった場合、 // TabStopプロパティもTrueに更新される為、OnClickイベントで無効化 procedure TForm1.RadioGroup1Click(Sender: TObject); var wControl: TRadioGroup; begin wControl:= TRadioGroup(Sender); TRadioButton(wControl.Controls[wControl.ItemIndex]).TabStop:= False; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.