Bruno,
Asi como agrupas los objetos en la clase GroupBox habria menera de que se agrupen los RadioButton ?
se le podria poner esta opcion
ejemlo:
::GroupBox := TGroupBox():Create( Self )
::GroupBox:SetBounds( 36, 6, 235, 58 )
::GroupBox:Caption := "Formas de pago"
::RadioButton1 := TRadioButton():Create( ::GroupBox )
::RadioButton1:SetPos( 18, 24 )
::RadioButton1:Caption := "Efectivo"
::RadioButton1:Checked := .T.
::RadioButton1:group := BEGIN_GROUP
::RadioButton2 := TRadioButton():Create( ::GroupBox2 )
::RadioButton2:SetPos( 93, 24 )
::RadioButton2:Caption := "Tarjeta"
::RadioButton3:group := WITHIN_GROUP
::RadioButton3 := TRadioButton():Create( ::GroupBox2 )
::RadioButton3:SetPos( 162, 24 )
::RadioButton3:Caption := "Credito"
::RadioButton3:group := END_GROUP
lo que se encuentren en el rango de Begin_Grupo y End_Grupo
tengan espesificado WITHIN_GROUP los rediobottum se podran seleccionar automaticamente y solo se tendria que espesificar con el OnClick que acceion hacer
bueno es una sugerencia
ya que ahora mismo
tendriamos que decirle que cuando seleccione uno desactive el otro o cualquiera de los tres ya que puede seleccionarse saltiadamente
espero haber sido claro.
saludos cordiales
Jose Luis
Sidem Mexico
|