模式对话框控件激活,该怎么解决

模式对话框控件激活
在用button控制打开一模式对话框   Form1时，运行如下程序：

TForm1*   Form1=new   TForm1(this);
Form1-> ShowModal();
Form1-> TabSheet4-> SetFocus();
if   (   Form1-> TabSheet4-> Focused()   )
{
              Form1-> LblName-> Visible   =   true;//Lable   active
              Form1-> EReName-> Visible   =   true;//Edit   active
              Form1-> EReName-> SetFocus();
}
delete   Form1;

为什么弹出的对话框中编辑框和标签没有从原来的不可见状态变为可见状态？
报错：不能激活不可见控件？？？


------解决方案--------------------
Form1-> ShowModal();

...//这之间的代码是在窗口关闭之后被执行的，这也是模态窗体的特点

delete Form1;

如果要实现楼主也要求可以在Form1中设置响应事件，比如在Form1-> TabSheet4的OnShow事件中执行。