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

Индекс элемента   Найти похожие ветки 

← →
LDE ©   (2003-10-09 10:12) [0]

Привет всем!

Помогите разобраться с таким вопросом!

Нужно при нажатии на кнопку определять номер (индекс) того RadioButton"а (RadioButton1 или RadioButton2 и т.д.), у которого свойство Checked = True.

Заранее спасибо.

---

← →
Семен Сорокин ©   (2003-10-09 10:16) [1]

один из вариантов:
раздай каждому Tag"у RadioButton"а индексы, сделай переменную myIndex, на onClick RadioButton"а поставь
myIndex := TRadioButton(Sender).Tag

---

← →
TUser ©   (2003-10-09 10:22) [2]

Напиши всем RadioButton"ам в Object Inspector"е свойство tag. (RadioButtonX.Tag:=X). OnClick у всех, я так понимаю, один и тот же. Там надо написать (Sender as ТКакой-тоПредок).Tag.

---

← →
LDE ©   (2003-10-10 13:09) [3]

Если я правильно понял, то код должен быть примерно такой:

procedure TForm1.Button1Click(Sender: TObject);
begin
myIndex := TRadioButton(Sender).Tag;
Label1.Caption := IntToStr(myIndex);
end;

Не работает! Значение всегда равно 0! Даже если делать проверку на свойство Checked (через Controls или иначе).

---

← →
Семен Сорокин ©   (2003-10-10 14:08) [4]

LDE © (10.10.03 13:09) [3]
в IDE найди в ObjectInspectore св-во Tag для RadioButton1..n и задай его равным 1..n

---

← →
clickmaker ©   (2003-10-10 14:22) [5]

Есть еще такой компонент - TRadioGroup...

---

← →
Владислав ©   (2003-10-10 14:39) [6]

> LDE © (10.10.03 13:09) [3]

Неправильно понял.

В твоем коде Sender это TRadioButton, а TButton. Поэтому и Tag всегда 0.

Ты можешь пробежаться по всем TRadioButton и проверить свойство Checked.

---

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

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



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