実行しても一瞬でウインドウが消えてしまうようです。 (ID:39982)

名前

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

本文 最初にチェックボックスをラジオボタンのように動作させるものを作成し、実行。ここまでは問題なく動作しました。 次にそのチェックに応じて、ラベルの数値が変化させようと、プログラムを追加記入したところ、上記の通り、一瞬で落ちてるらしい状態になってしまいました。 以下にそのソースコードを記述させていただきます。 コメントアウトしている8行目が実行できなくなる原因(?)の記述です。 他の部分はF9実行して問題なく動作した後から、F9実行で動作しなくなる(?)までの間、おそらく何も弄っていないため省略させていただきました。 //チェックボックスtb1_1の部分 procedure TForm1.tb1_1Click(Sender: TObject); begin if (tb1_1.Checked = True) and (tb1_2.Checked = True) then begin tb1_2.Checked := false end; //if tb1_1.Checked = True then Label1.Caption := (IntToStr(StrToInt(Label1.Caption)+1)); end; //チェックボックスtb1_2の部分 procedure TForm1.tb1_2Click(Sender: TObject); begin if (tb1_1.Checked = True) and (tb1_2.Checked = True) then begin tb1_1.Checked := False; tb1_2.Checked := True; end; end;