数据库、线程高手请进！在线等候！

Question

问题是就在他们不是同一个Form，是点击了数据录入菜单命令后，弹出一个欢迎对话诓，当数据从文件里录入完毕后就结束这个欢迎对话诓！
我决的好象有冲突，怎么办呢？

Answer 1

inherited from TThreahExcute
{
  Disable forms!  ShowLogoForm
         ____________________________________________
        |                                           |    
        |             正在录入数据！                 |
        |                                           |
        |___________________________________________|  EnableForms
}

Answer 2

我的录入数据操作是在主Form里的，而欢迎对话诓是一个辅FoRM，上面的不行把，
怎么办砑？

Answer 3

form2.Showmodal;
然后，在主Form完成工作时把form2关闭即可。
呵呵类似于闪屏。

Answer 4

TO:dongxufeifei
我在Thread 对象的Excute里写了如下：
begin
 FreeOnTerminate:=true;
 Form2.showmodal;
end;
但在程序里执行到
MyThread:=Thread1.create(false);就报错，有什么办法嘛？

Answer 5

呵呵,好像没必要用到线程吧:你用个非模式窗体显示你的欢迎信息就行了呀!如下:var
  WelcomForm: TWelcomForm;
  InputForm : TInputForm;
begin
  WelcomForm := TWelcomForm.Create(self);
  InputForm := TInputForm.Create(Self);
  try
    WelcomForm.Show;
    WelcomForm.update;
    InputForm.ShowModal();
  finally
    FreeAndNil(WelcomForm);
    FreeAndNil(InputForm);
  end;
end;