Refresh() формы, или собственный MessageBox

[timao]

Виват, форумчане!

Понадобилось написать свой MessageBox RadioButton кнопками (требование заказчика). Создал новую vcl форму, на ней:

TRadioButton *RadioYes;
TRadioButton *RadioNo;
TRadioButton *RadioClose;

В ".dfm" файле у этих компонентов "Checked" не выставляю.

И всего одна функция в ".cpp" файле формы:

int RadioMessageBox() {
	MessageForm->RadioClose->Checked = true;
	MessageForm->ShowModal();
	return 0;
}

Код упростил (на самом деле не всегда возвращается 0), но тестировал именно в таком виде.

Что происходит:
Вызываю ф-ю RadioMessageBox() - открывается модальное окно с выбранным RadioClose элементом (всё в порядке). Кликаю мышью по RadioYes. Закрываю окно.
Вызываю ещё раз - открывается модальное окно с выбранным RadioYes элементом!
Попробовал после присваивания ...->Checked = true разные методы типа
MessageForm->Update() или MessageForm->Refresh(), не помогает. В обработчик OnShow() у формы тоже ...->Checked = true вставлял.

Проблема, думаю, понятна. Как сделать, чтобы при отображении формы выбирался какой-то RadioButton по умолчанию.
P.S. RAD XE3

[timao]

Много что перепробовал, присваивания не происходит. В итоге решил велосипедно, через Timer.

[timao]

Итак, решение:

Project->Options->Forms, MessageForm перетаскиваем в правый столбик

int RadioMessageBox(TComponent* Owner) {
	MessageForm = new TMessageForm(Owner);
	//тут меняем свойства компонентов как хотим
	MessageForm->ShowModal();
	MessageForm->Free();
	return 0;
}