¿Cómo se puede evitar que se seleccionen varios campos en un CheckListBox?

[dec]

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
   // Elemento seleccionado
   i := CheckListBox1.ItemIndex;
   if i = -1 then Exit; // Salimos si no lo hay
   // Recorremos todos los elementos
   for j := 0 to CheckListBox1.Items.Count-1 do
      if i <> j then // Los que no sean el seleccionado...
        CheckListBox1.Checked[j] := false; // se desmarcan
   // Habrá siempre un elemento marcado
   if not CheckListBox1.Checked[i] then
     CheckListBox1.Checked[i] := true;
 end;