Jak odznaczyć CHECKBOXa

0

Mam na formie 14 checkboxów połaczonych w pary które działają jak radiobuttony.
Tu fragment kodu

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
If CheckBox2.State = cbChecked then CheckBox2.State := cbUnchecked
else CheckBox1.State := cbChecked;
end;

procedure TForm1.CheckBox2Click(Sender: TObject);
begin
If CheckBox1.State = cbChecked then CheckBox1.State := cbUnchecked
else CheckBox2.State := cbChecked;
end;

Wszystko były by git ale niewiem czemu nie da się później odznaczyć takiego Checkboxa.
Zwykłe

procedure TForm1.Button5Click(Sender: TObject);
begin
Checkbox2.State := cbUnchecked;
end;

nie działa.
Wie ktoś może jak zrobić żeby się dąlo odznaczyć taki CHECKBOX??
A radiobutonów nie używam bo nie chce robić 7 radiogroup'ów.
Chyba, że ktoś wie jak zrobić żeby w radiogroupie nie było ramki.
A nie chce też do tego używać PANELi.
Pomocy :O

0

Uzyj zwykłego TRadioButton, a w grupy segregujesz je poprzez nadanie kazdej grupie innego GroupIndex.

0

Jak robisz:
Checkbox2.State := cbUnchecked;

to wtedy wykonuje się procedura OnClick checkbox2 a w niej następuje
znów zmiana na cbChecked.

Poza tym lepiej chyb używać checkbox2.Checked := true/false ;

Jeśli chodzi o RadioGroup to wystarczy dać:
visible := false;
i ramka jak i cały group znika, a radiobuttony zostają.

0

Hmmm... moze spróbuj checkbox2.checked := false ... ja to zawsze stosuje:D

1 użytkowników online, w tym zalogowanych: 0, gości: 1