| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TRadioButton [D7, XP]
Максим © (2005-12-20 06:20:00)Есть две панели. Если хоть в одной не будет выбрана 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 08:13:00) [1]Не знаю, у меня все работает.
Максим (2005-12-20 06:53:00) [2]Ой, я имел ввиду почему с RadioButton такое не проходит, а с чекбоксом проходит.
Максим (2005-12-20 06:52:00) [3]Может что не так сделал, но у меня не работает код TUser'a. Компилируется, но то чего я хотел не происходит. Даже если в свойствах ставлю Enabled = false.
А вот с checkbox все без проблем (если выбрать опцию CheckBox1, то свойство Button1.Enabled будет равно false ):
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
Button1.Enabled := not CheckBox1.Checked
end;
А вот почему с чекбоксом такое не проходи, не пойму.
TUser (2005-12-20 06:40:00) [4]Button1.Enabled:=false;
for i:=1 to 8 do
if (FindComponent('RadioButton'+inttostr(i)) as TRadioButton).Checked then
begin
Button1.Enabled:=true;
break;
end;
| |
