Вопрос про RadioButton

[adkomissarov]

Доброго дня. Имеется некая программка для автоматизации. В ней прописаны 2 типа действий, ну и на каждый тип имеется свой radiobutton... По умолчанию 2 радиокнопки выключены, включаю какой-либо и все норма. Хотелось бы так: если 2 раиокнопки вырублены, то выводилось бы сообщение, что типа "РАДИОКНОПКА НЕ ВЫБРАНА"... пишу так:

if radiobutton1.checked=false then showmessage('ВЫБЕРИ РАДИОКНОПКУ');
if radiobutton2.checked=false then showmessage('ВЫБЕРИ РАДИОКНОПКУ');

Как бы все хорошо, НО при неактивности обоих, сообщение выводиться дважды....или при активности любой, выдается сообщение от второй. Что-то тут простое, но ни как не пойму. Выручайте ребят=)

[Вадим Мошев]

Может, вам лучше использовать компонент RadioGroup? С ним удобнее в этом плане будет работать.

[Alex11223]

if radiobutton1.checked=false and radiobutton2.checked=false

[Аватар]

if not (radiobutton1.checked or radiobutton2.checked) then showmessage('ВЫБЕРИ РАДИОКНОПКУ');

[Вадим Мошев]

или так:

if NOT( radiobutton1.checked OR radiobutton2.checked)

Аватарчик опередил

[Alex11223]

или так:

Чем это отличается от сообщения выше, кроме капса?

[Вадим Мошев]

Я это писал, когда ещё не видел сообщения от Аватара. Говорю же, опередили.

Но я изначально предлагал пользоваться radioGroup

[Аватар]

Только тем, что я опередил Вадима на несколько секунд. Бывает, может в одном подъезде и в унисон

[xxbesoxx]

procedure TForm1.Button1Click(Sender: TObject);
begin
 if (RadioButton1.Checked = False) and (RadioButton2.Checked = False) then
  begin
    Beep();
      MessageDlg('ВЫБЕРИ РАДИОКНОПКУ', mtError,[mbOK],0);
    Abort;
  end
  else
 if RadioButton1.Checked = True then
   begin
    //  Первое действия
   end
  else
 if RadioButton2.Checked = True then
   begin
    //  Второе действия
   end

end;

[Alex11223]

//  Первое свидание

свидание?оО

Я это писал, когда ещё не видел сообщения от Аватара. Говорю же, опередили.

А я когда еще не было отредактировано это сообщение