Индекс элемента

← →
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

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

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

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

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

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

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