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