Bueno, es que yo no sé si es una cuestión estética. Es sólo que en el código que él intentó, explícitamente pone en true el checkbox que llama. Por eso supuse que no quería dejar que se desmarcara.
Ahora, tratando de encontrar un código compacto como el de
seoane, lo más que me acerco es a esto:
Código Delphi
[-]
{$writeableconst on}
procedure TForm1.CheckBoxClick(Sender: TObject);
const
Checando: Boolean = false;
begin
if Checando then exit;
Checando := true;
if Sender = CheckBox1
then CheckBox2.Checked := false
else CheckBox1.Checked := false;
TCheckBox(Sender).Checked := true;
Checando := false;
end;
{$writeableconst off}
usando un sólo evento para ambos.
// Saludos