Bueno de nuevo por aqui.
Esto es lo que he hecho a manera didactica -
hasta parece que se de que hablo
-
Código Delphi
[-]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Panel1: TPanel;
Panel2: TPanel;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
CheckBox3: TCheckBox;
CheckBox4: TCheckBox;
CheckBox5: TCheckBox;
CheckBox6: TCheckBox;
CheckBox7: TCheckBox;
CheckBox8: TCheckBox;
Memo1: TMemo;
Button1: TButton;
RadioGroup1: TRadioGroup;
procedure Button1Click(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
Checados: array [1..8] of boolean;
public
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
i,j: integer;
Check: TcheckBox;
begin
for i := 0 to ComponentCount - 1 do
if Components[i] is TCheckBox then
begin
Check := TCheckBox(Components[i]);
if Check.Checked then
Memo1.Lines.Add(Check.Name + ' = True');
end;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
checados[TCheckbox(sender).Tag] := TCheckbox(Sender).checked;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
RadioGroup1.Controls[4].Enabled := False;
RadioGroup1.Controls[5].Enabled := False;
end;
end.
Aun quedan cosas por hacer que ando investigando. Se aceptan todas las ayudas. Añado un zip con el codigo fuente y sin ejecutable de este proyecto.