Все нормально
Код:
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=RadioButton1.Checked or RadioButton2.Checked or RadioButton3.Checked;
end;
Форма не закроется пока хотя бы один из них не выбран
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.
|