紧急求助: 关于在启动封面中使用ShockwaveFlash控件的问题!!

Question

  Application.CreateForm(TFrm_Start,Frm_Start);
  Frm_Start.Show;
  Frm_Start.repaint;
  sleep(2000);
  
这样可以吗？

Answer 1

你可以让Start窗口以ShowModal形式出现
然后响应一个OnClick事件和对Falsh的判断来关闭你的Start窗口

Answer 2

sleep阻塞了form的repaint,你可以加一个timer，定义interval 为滞留时间
在dpr中，不要FREE frm_start;
而在Timer.ontimer事件中，free Frm_Start;

Answer 3

还是用ShowModal比较好，然后在Frm_Start中用一个TTimer来控制显示的时间，到时间后调用ModalResult= MROK即可

Answer 4

还做成DLL调用的形式，在program单元的Application.Initialize后引用。当然，DLL函数中创建窗体后Form_Logo.Update还是要的。