Concatenar CheckBox

[[Lepe]]

Gracias Roman, no sé en que estaba pensando o:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
var c:TComponent;
begin

c := Findcomponent('Checkbox'+inttostr(i));
if c <> nil then
begin
  Tcheckbox(c).Propiedades del checkbox
  // codigo trabajo
end;

Solo un detalle.... Estas en el OnCreate del Form, en este evento puede que los checkboxes no se hayan construido

Un saludo

[jachguate]

Empezado por Lepe

Solo un detalle.... Estas en el OnCreate del Form, en este evento puede que los checkboxes no se hayan construido

Cuando el evento onCreate se dispara, ya todo lo que se dejó en el form en tiempo de diseño existe, incluso los apuntadores entre iguales están correctamente establecidos: los datasources apuntaran a los datasets, los dbedits a los fields, etc, etc. suponiendo que todo está en el mismo formulario.

Hasta luego.

[roman]

Empezado por jachguate

Cuando el evento onCreate se dispara, ya todo lo que se dejó en el form en tiempo de diseño existe, incluso los apuntadores entre iguales están correctamente establecidos: los datasources apuntaran a los datasets, los dbedits a los fields, etc, etc.

Suponiendo, si no mal recuerdo, que estamos hablando de Delphi > 3 y que la propiedad OldCreateOrder del formulario no ha sido cambiada a true.

// Saludos

[jachguate]

Empezado por roman

Suponiendo, si no mal recuerdo, que estamos hablando de Delphi > 3 y que la propiedad OldCreateOrder del formulario no ha sido cambiada a true.

// Saludos

Buen punto. En d3 e inferiores, OnCreate se llama dentro del constructor de la forma, y en ese momento ninguno de los componentes contenidos en ella existe.

Hasta luego.

[novice]

Muchas gracias a todos funciono muy bien

[roman]

Empezado por novice

Muchas gracias a todos funciono muy bien

Pues de nada. Pero sería agradable que dijeras finalmente qué opción tomaste. Si usaste FindComponent prometo no "regañarte"

// Saludos

[novice]

Jajajajaja, use la de maeyanes con tu modificacion en:

Check := TCheckBox(Components[i]);

todo funciono excelente gracias por el apoyo!!