Dodakaedr,
ну если уж сокращать, то
Код:
procedure GetCheck(Sender: TObject);
begin
case sender of
Check[0]: if Check[0].Checked then begin Check[1].Checked := False; Check[2].Checked := False; end;
Check[1]: if Check[1].Checked then begin Check[2].Checked := False; Check[0].Checked := False; end;
Check[2]: if Check[2].Checked then begin Check[1].Checked := False; Check[0].Checked := False; end;
end;
end;
Зачем нам лишние begin, end
Цитата ErikPshat:
Как вывести эти же чекбоксы, то только не в главное окно, а в MsgBox? »
|
Цитата Dodakaedr:
На сколько мне известно, то никак. »
|
Но, можно сделать собственную форму сообщения при нажатии на нужную кнопку, и на ней уже разместить всё, что нужно.