掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
RadioGroupでRadioButtonのクリックのみチェックしたい (ID：31090)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm4.Button1Click(Sender: TObject); var I,W : Integer; Bitmap: TBitmap; begin Bitmap:= TBitmap.Create; Bitmap.Canvas.Font.Assign(RadioGroup1.Font); for I:=0 to RadioGroup1.Items.Count -1 do begin W := Bitmap.Canvas.TextWidth(RadioGroup1.Buttons[I].Caption); RadioGroup1.Buttons[I].Width := W + 26; //26 は適当 //範囲を分かり易くする為に色付け RadioGroup1.Buttons[I].Color := 60 + (40 * I); end; Bitmap.Free; end; RadioButton のラベル部分のクリックを無視したいのならもうすこし 工夫が必要ですが
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.