Скачать: CL | DM;

TRadioButton   Найти похожие ветки 

← →
Максим ©   (2005-12-20 06:20) [0]

Есть две панели. Если хоть в одной не будет выбрана RadioButton, то кнопка Button1 должна быть не активной. А вот если выбрана, то на кнопку Button1 можно нажать. Что в этом коде я делаю не так? Пробовал убирать NOT, без толку.

procedure TForm1.Button1Click(Sender: TObject);
begin
 Button1.Enabled := not RadioButton1.Checked;
 Button1.Enabled := not RadioButton2.Checked;
 Button1.Enabled := not RadioButton3.Checked;
 Button1.Enabled := not RadioButton6.Checked;
 Button1.Enabled := not RadioButton7.Checked;
 Button1.Enabled := not RadioButton8.Checked;
end;


---

← →
TUser ©   (2005-12-20 06:40) [1]

Button1.Enabled:=false;
for i:=1 to 8 do
if (FindComponent("RadioButton"+inttostr(i)) as TRadioButton).Checked then
begin
Button1.Enabled:=true;
break;
end;

---

← →
Максим ©   (2005-12-20 06:52) [2]

Может что не так сделал, но у меня не работает код TUser"a. Компилируется, но то чего я хотел не происходит. Даже если в свойствах ставлю Enabled = false.

А вот с checkbox все без проблем (если выбрать опцию CheckBox1, то свойство Button1.Enabled будет равно false ):


procedure TForm1.CheckBox1Click(Sender: TObject);
begin
 Button1.Enabled := not CheckBox1.Checked
end;


А вот почему с чекбоксом такое не проходи, не пойму.

---

← →
Максим ©   (2005-12-20 06:53) [3]

Ой, я имел ввиду почему с RadioButton такое не проходит, а с чекбоксом проходит.

---

← →
TUser ©   (2005-12-20 08:13) [4]

Не знаю, у меня все работает.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c