本帖最后由 wangwei244157887 于 2009-08-10 20:37:20 编辑

解决方案 »

  1.   

    建议一下,你可以用show和hide来实现窗体显示和不显示。显示不出来控件时因为窗体没来及绘制,建议不要用循环,用timer组件,也没必要动态创建窗体。i: Integer;…… ……procedure Tform1.timer(sender: tobject);
    begin
      Inc(i)
      if i mod 2 = 0 then Show else Hide;
    end;i
      

  2.   

    循环的优先级别比较高,timer的优先级比较低。这样窗体就有机会重绘。
      

  3.   

    恩,我刚才试验了一下,我用TIMER1实现了,那我想问下,这个窗体的重绘跟优先级有什么关系吗?请教了