Ver Mensaje Individual
  #2  
Antiguo 28-11-2011
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Reputación: 19
olbeup Va camino a la fama
En vez de utilizar esto:
Código Delphi [-]
perfil.Detalles.Add(form.Controls[i])
Utiliza este otro:
Código Delphi [-]
perfil.Detalles.AddObject(form.Controls[i])
El .Detalles tiene que ser TStrings para poder utilizar lo anterior.
Cuando recuperes el objecto lo tienes que hacer:
Código Delphi [-]
...
var
  oCtrl: TCheckBox;
  nI: Integer;
begin
  for nI := 0 to (perfil.Detalles.Count -1) do
  begin
    oCtrl := (perfil.Detalles.Objects[nI] as TCheckBox);
    if oCtrl.Checked then
    begin
      ...
      ...
    end;
  end;
end;
Espero que sea esto lo que estés buscando.

Un saludo.
Responder Con Cita