Hola,
A ver si esto te da alguna idea: se trata de utilizar el evento "ClickCheck" de un "TCheckListBox" para hacer que este se asemeje a unos radio-botones: solamente y siempre habrá un elemento "marcado". Puede acaso darte alguna idea para lo que quieres hacer, creo:
Código Delphi
[-]
procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
var
i,j: integer;
begin
i := CheckListBox1.ItemIndex;
if i = -1 then Exit; for j := 0 to CheckListBox1.Items.Count-1 do
if i <> j then CheckListBox1.Checked[j] := false; if not CheckListBox1.Checked[i] then
CheckListBox1.Checked[i] := true;
end;