como CheckListBox pero con Radio .. existe?

[Neftali [Germán.Estévez]]

Empezado por ingel

necesito un componnente como el CheckListBox pero con radios porque tengo que seleccionar SOLO una opcon ...

Si es por sólo seleccionar una opción basta con que en el evento OnClickCheck del CheckListBox pongas este código:

Código Delphi [-]
NOTA: La variable _Last la defines en la parte PRIVADA del form


procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
begin
  if (_Last <> CheckListBox1.ItemIndex) then begin
    CheckListBox1.Checked[_Last] := False;
    _Last := CheckListBox1.ItemIndex;
  end;
end;

Empezado por ingel

EL TradioGroup no me sirve porque son mas de 100 opciones y cuando las cargo no me muestra nada ... no tiene scrol...

Aquí es que debes estar haciendo algo mal, porque yo cargo 100 elementos en un TCheckListBox y me aparece una barra de Scroll vertical.
¿Cómo cargas esos elementos?

[*Caro*]

Empezado por Neftali

Aquí es que debes estar haciendo algo mal, porque yo cargo 100 elementos en un TCheckListBox y me aparece una barra de Scroll vertical.

Hola Neftali, creo que no se refiere al CheckListBox sino al Radiogroup en el cual al cargar varios items no aparece la barra Scroll.

Saluditos

[ingel]

anduvo perfecto !!

Sds

[Neftali [Germán.Estévez]]

Empezado por Caro

...creo que no se refiere al CheckListBox sino al Radiogroup en el cual al cargar varios items no aparece la barra Scroll.

Cierto Caro; He vuelto a leer la frase y la primera vez no la entendí bien.

[cloayza]

Prueba este codigo...

Pagina del Autor: http://delphi.about.com/od/adptips20...diolistbox.htm

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   ListBox1.Style := lbOwnerDrawFixed;
   ListBox1.MultiSelect:=False; //Al desactivar la multiseleccion funciona como un TRadioButton, seleccionando un item a la vez.
   ListBox1.ItemHeight := 20;
   ListBox1.OnDrawItem := ListBox1DrawItem;
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
const
   IsSelected : array[Boolean] of Integer = (DFCS_BUTTONRADIO, DFCS_BUTTONRADIO or DFCS_CHECKED) ;
var
   optionButtonRect: TRect;
   listBox : TListBox;
begin
   listBox := Control as TListBox;
   with listBox.Canvas do
   begin
     FillRect(rect) ;

     optionButtonRect.Left := rect.Left + 1;
     optionButtonRect.Right := Rect.Left + 13;
     optionButtonRect.Bottom := Rect.Bottom;
     optionButtonRect.Top := Rect.Top;

     DrawFrameControl(Handle, optionButtonRect, DFC_BUTTON, IsSelected[odSelected in State]) ;

     TextOut(15, rect.Top + 3, listBox.Items[Index]) ;
   end;
end;

Eso no mas...