CheckBoxの排他的選択の後続 (ID:28273)

名前

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

本文 イカで、Button1をクリックしたとき、メッセージが出たら、あなたの正解 出なければ不正解、ということでFA procedure TForm1.Button1Click(Sender: TObject); begin CheckBox1.OnClick := CheckBoxClick; end; procedure TForm1.Button2Click(Sender: TObject); begin CheckBox1.OnClick := nil; end; procedure TForm1.CheckBoxClick(Sender: TObject); begin ShowMessage('CheckBoxClick'); end;