Вопрос про RadioButton

[Аватар]

Ой как воротит о сравнения Boolean с False или True. А так не посимпатичней будет:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if RadioButton1.Checked then
  begin
    //  Первое свидание
  end
  else  if RadioButton2.Checked then
  begin
    //  Второе свидание
  end
  else
  begin
//    Beep();  а зачем бибикалки?
    MessageDlg('ВЫБЕРИ РАДИОКНОПКУ', mtError,[mbOK],0);
//    Abort; это от лукавого
  end;

Да, про свидания желательны подробности

[Alex11223]

А еще можно сделать, чтобы какой-нибудь был выбран по умолчанию.

[xxbesoxx]

свидание?оО

бывает

[adkomissarov]

Всем спасибо, большое... Кст вариант

radiobutton1.checked=false and radiobutton2.checked=false

не сканал.

[Аватар]

не сканал.

сканает, если скобки правильно расставить

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

вот так вот:

(radiobutton1.checked=false) and (radiobutton2.checked=false)

[adkomissarov]

А можно как-нибудь поменять заголовок месэджбокса в выпадающем предупреждении? А то там так и стоит Project1

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

Сообщение от adkomissarov

А можно как-нибудь поменять заголовок месэджбокса в выпадающем предупреждении? А то там так и стоит Project1

Можно. Прочитайте про функцию MessageDlg

http://www.delphibasics.ru/MessageDlg.php

[Alex11223]

Вроде нельзя в MessageDlg

Используйте стандартные виндовые

MessageBox(0, 'Сообщение', 'Заголовок', MB_OK + MB_ICONSTOP);

[xxbesoxx]

//    Beep();  а зачем бибикалки?
    MessageDlg('ВЫБЕРИ РАДИОКНОПКУ', mtError,[mbOK],0);
//    Abort; это от лукавого
  end;

Да, про свидания желательны подробности

да .... Анатолий Хомоненко, Владимир Гофман | Самоучитель Delphi. 2 издание (2008) [PDF]