需要实现功能：checkbox模拟radiobutton功能

因为checkbox的checked的改变有三种方式,

cbchecked 表示选中,

cbunchecked表示未选中,

cbGrayed表示变灰状态.（allowgrayed 设置true时）

if not chkRelation.Focused then Exit;

Form上面有2个checkbox：A和B，点击勾选其中一个，自动取消另外一个，并且必须有一个按钮选中，和radiobutton效果一样

第一步实现按钮切换效果，但是选中一个后再点击它就会取消选中，例如选中A自动取消选择B，再点击A，A也会取消选中状态，即A和B都未选中：

procedure TForm1.checkbox1Click(Sender: TObject);
begin
if not checkbox 1.Focused then Exit;
checkbox 2.Checked := False;
end;
procedure TForm1. checkbox 2Click(Sender: TObject);
begin
if not checkbox 2.Focused then Exit;
checkbox 1.Checked := False;
end;

第二步实现radiobutton最终效果：

procedure TForm1.checkbox1Click(Sender: TObject);
begin
if not checkbox1.Focused then Exit;
checkbox1.ReadOnly := True;
checkbox2.ReadOnly := False;
checkbox2.Checked := False;
end;


procedure TForm1.checkbox2Click(Sender: TObject);
begin
if not checkbox2.Focused then Exit;
checkbox2.ReadOnly := True;
checkbox1.ReadOnly := False;
checkbox1.Checked := False;
end;