Otra mas el codigo anterior recorre todos los componentes del formulario buscando los checkbox -"desperdiciando tiempo y ciclos del cpu"- si yo se que estan dentro de un panel bueno pues buscalos solo en los paneles que a su vez estan dentro del groupbox. Asi que cambie el codigo por este
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var
i,j: integer;
begin
for i:= 0 to GroupBox1.ControlCount - 1 do
if GroupBox1.Controls[i] is TPanel then
with TPanel (GroupBox1.Controls[i]) do
for j:= 0 to ControlCount - 1 do
if Controls[j] is TCheckbox then
if (Controls[j] as TCheckBox).Checked then
Memo1.Lines.Add((Controls[j] as TCheckBox).Name + ' = True')
else
Memo1.Lines.Add((Controls[j] as TCheckBox).Name + ' = False');
end;
y aqui es donde termina la triste historia de un vaquero enamorado...
Me falta saber como recorrer cada panel (en forma individual, este codigo recorre todo lo que se llame Panel y este dentro del radio group) y si hay mas de un checkbox seleccionado active el elemento correspondiente del radio group.
p.d. Con esto tambien subio el numero de menasjes que tengo