问题在这里:
form2.showmodal;
  if form2.label5.Caption ='1' then
注意:form2.showmodal;执行后,只有在form2关闭后,if form2.label5.Caption ='1' then才能继续执行。—————————————————————————————————
MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
             毁誉由人,望天上云卷云舒,聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
I.Desire := '加不加分随你';
—————————————————————————————————
    

解决方案 »

  1.   

    可能问题在这里:
    form2.showmodal;
      if form2.label5.Caption ='1' then
    注意:form2.showmodal;执行后,只有在form2关闭后,if form2.label5.Caption ='1' then才能继续执行。—————————————————————————————————
    MaximStr := '宠辱不惊,看庭前花开花落,去留无意;
                 毁誉由人,望天上云卷云舒,聚散任风。';
    if Not Assigned(I) then
      I := TI.Create(Nil);
    I.Maxim := MaximStr;
    I.Explain := '假如上述代码中出现“OA”、“3D”等字样,改为“=”或者去掉';
    I.Desire := '加不加分随你';
    —————————————————————————————————
        
      

  2.   

    你的具体意思是????
    我试着调了他们的次序可是现在form2 都不显示了
    麻烦在解释一下
      

  3.   

    showmodal操作类似调用一个showmessage或messagedlg函数,他要等到用户对窗体正确响应并退出(关闭)窗体后程序才继续运行。等待响应期间程序被挂起