CheckListBox

[ivp88]

Здравствуйте скажите пожалуйста...как сделать чтобы при выборе двух галочек остальные "потухали"...например нужно из пяти галочек выбратьлюбые две ..а другие три потухнут???

[Трофимов Александр]

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
form1.RadioButton2.Checked:=false;
... Для каждой оставшейся кнопки то же самое(если кнопок много, то отдельной процедурой)
end;

Соответственно если две, то надо проверять сколько выбрано и тушить например последнюю. Если надо чтобы не были активными, то меняем Checked на Enabled.

[ivp88]

вообще-то мне не нужен RadioButton а нужен CheckListBox

[Fainder]

Может есть способ проще, но долго думать сейчас времени нет:

procedure TForm1.CheckListBox1ClickCheck(Send er: TObject);
var i,j,k : integer;
begin
for i := 0 to CheckListBox1.Count - 1 do begin
if CheckListBox1.Checked[i] = true then
for j:=i +1 to CheckListBox1.Count - 1 do
if CheckListBox1.Checked[j] = true then
for k := 0 to CheckListBox1.Count - 1 do
if (k<>i)and(k<>j) then CheckListBox1.Checked[k]:=false;


end;
end;

[ivp88]

спасобо большое