在下是初学者，请教在CB下，怎么通过点击一个按钮再弹出一个对话框

在下是菜鸟，请问在CB下，如何通过点击一个按钮再弹出一个对话框！
我主界面下有个按钮，想单击按钮，弹出一个Form类型的对话框，请问怎么写这个代码？

[解决办法]
你先定一个对话框form，TDigTestForm
然后在OnClick事件中加入如下代码
TDigTestForm * frm = new TDigTestForm(this);
if( frm-> ShowModal() == mrOk )
{
}
delete frm;