RadioButton事件

Question

我想选择Radio按妞1 然后打勾 触发事件.
而选择Radio按妞2触发另一个事件.
但是,有个BUG. 就是必须先打勾.然后再选择Radio按钮才能实现.具体代码:procedure TForm1.RadioButton1Click(Sender: TObject);
begin
if checkbox1.Checked then
form1.Caption:='修改格式一'
end;procedure TForm1.RadioButton2Click(Sender: TObject);
begin
if checkbox1.Checked then
form1.Caption:='修改格式二'
end;procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if not(checkbox1.Checked) then
form1.Caption:='Form1'
end;end.

Answer 1

以解决。打勾事件再加个 单选是否被选就ok了

Answer 2

仔细考虑，说不定会有更好的设计