Ver Mensaje Individual
  #20  
Antiguo 27-09-2006
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Reputación: 27
jachguate Va por buen camino
Puede abreviarse de este modo, ya que la variable ChildControl está de mas:
Código Delphi [-]
procedure TProveedores.LimpiarCheckbox(OpcionesGroupBox: TGroupBox);
var
  I:integer;
begin
  for I := 0 to OpcionesGroupBox.ControlCount - 1 do
    if OpcionesGroupBox.Controls[i] is TCheckBox then
      TCheckBox(OpcionesGroupBox.Controls[i]).Checked := False;
end;

Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita