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 такое не проходит, а с чекбоксом проходит.

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

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