So how can I have "groups" of TRadioButtons with the following script you can only have one checked.
SCAR Code:
program FormDesign;
type
TestType = array[0..3]of TRadioButton;
var
Form: Tform;
TestVar: array[0..2]of TestType;
i, ii: integer;
trbCaption: TStringArray;
procedure InitForm;
begin
Form := CreateForm;
for i := 0 to 2 do
for ii := 0 to 3 do
TestVar[i][ii] := TRadioButton.create(Form);
with Form do
begin
Left := 100;
Top := 100;
Width := 500;
Height := 500;
Caption := 'New Form';
Color := clWhite;
Font.Color := clBlack;
end;
trbCaption := ['A)', 'B)', 'C)'];
for i := 0 to 2 do
for ii := 0 to 3 do
begin
with TestVar[i][ii] do
begin
Parent := Form;
Top := 10 + ( ii * 20 );
Left := 10 + ( i * 30 );
Caption := trbCaption[i];
end;
end;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
Form.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
begin
SafeInitForm;
SafeShowFormModal;
end.