线程里显示窗口问题

Question

function _Thread_PiPei():DWORD;stdcall;
var
    bp : BuPan.Tf_bupan;
begin
    bp := BuPan.Tf_bupan.Create(nil);
    bp.Show;
end;procedure Tf_main_cli.N2Click(Sender: TObject);
begin
    Windows.CloseHandle(Windows.CreateThread(nil,0,@_Thread_PiPei,nil,0,common.TMP_TH_ID));
end;动态窗口在线程里不能显示呀?只是闪了一下就不见了!!!?为什么呀?

Answer 1

应该是可以显示的，改成bp.showmodal试下

Answer 2

showmodal
的话,showmodal下面的代码就不能执行了!!!?不要showmodal的!!为什么 show 不能显示呢?该怎么做?

Answer 3

线程执行完了，不就消失啦
哈哈，基本概念啊
...............
加一句
 bp   :=   BuPan.Tf_bupan.Create(nil); 
 bp.parent := Application;
        bp.Show; 

Answer 4

  哦，错了，这样
bp       :=       BuPan.Tf_bupan.Create(nil);   
  bp.parent   :=   Application.handle; 
                bp.Show;   

Answer 5

bp.Show; 
bp.BringToFront;
Sleep(5000); //停顿看看窗口能不能显示