RadioGroupの初期値書き込みに関して (ID:38863)

名前

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

本文 RqadioGroupを使ったときに設定した値が反映されないことが起こります。 /////////Form1 unit Unit1; procedure TForm1.Button1Click(Sender: TObject); begin Form2.Show; end; ////////Form2 unit Unit2; procedure TForm2.FormShow(Sender: TObject); begin RadioGroup1.ItemIndex := 0; RadioGroup2.ItemIndex := 0; RadioGroup3.ItemIndex := 0; end; としてForm2をForm1から呼び出したときに、RadioGroupのOnShowでItemIndex を全て0に設定します。 この設定をしていても、 先にForm2などでRadioGroup3.ItemIndex を1に変更し、Closeして再度開くと FormShowでRadioGroup3.ItemIndex := 0;としているのに、1のままです。 もしForm2で全て1に設定して、一度閉じ、再度開いた場合は最後に1にしたRadioGroupの値が0になりません。 例)Form2を開く → RadioGroup1を1 → RadioGroup3を1 → RadioGroup2を1 → Form2を閉じる → Form2を開く → 「RadioGroup2のみ1」となってしまう。 この現象は簡単に作成しても出てしまいます。 原因はOnShowの処理のあとに値を書き換えていると思いますが、 何か設定変更、対策などありますでしょうか？