Radiogroup & radiobutton

[KlErik]

Помогите с этими компонентами, не могу сделать так чтобы при выборе переключателя а затем нажатии кнопки, выходил файл или сообщение. Главная суть заключается в то чтобы именно при отмеченном переключателе работала кнопка!
Заранее спасибо!

[Vincent]

Если используешь RadioButton, проверяй у каждой свойство Checked, если RadioGroup - см. у него свойство ItemIndex. В первом случае можно сделать например так:

procedure TForm1.Button1Click(Sender: TObject);
begin
if RadioButton1.Checked then ShowMessage('RB 1 Checked!')
else if RadioButton2.Checked then ShowMessage('RB 2 Checked!')
else if RadioButton3.Checked then ShowMessage('RB 3 Checked!');
end;

Естественно, вместо ShowMessage любые необходимые действия А для RadioGroup еще проще:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('RB ' + IntToStr(RadioGroup1.ItemIndex + 1) + ' Checked!');
end;

(Только не забывайте, что элементы нумеруются с 0, т.е. первая radiobutton будет иметь индекс 0. В случае, если ничего не выбрано ItemIndex = -1)