引言: 請問一下.... 因為程式的關係,我必須讓畫面停十秒,目前我想做到的是在畫面停住的時候顯示訊息告知使用者,目前在處理階段.或是顯示漏斗在旋轉..不然的話,畫面會整個白掉... < face="Verdana, Arial, Helvetica">

palw 你好:
(1)試試看這樣做可不可以呢??
   int i=0;
   while(i<1000)
   {
      Application->ProcessMessages();
      Sleep(10);
      i  ;
   }
(2)你的程式碼是否可以貼上來看看呢??
(>
-- 
        

引言:

引言: 請問一下.... 因為程式的關係,我必須讓畫面停十秒,目前我想做到的是在畫面停住的時候顯示訊息告知使用者,目前在處理階段.或是顯示漏斗在旋轉..不然的話,畫面會整個白掉... < face="Verdana, Arial, Helvetica">

palw 你好:
(1)試試看這樣做可不可以呢??
   int i=0;
   while(i<1000)
   {
      Application->ProcessMessages();
      Sleep(10);
      i  ;
   }
(2)你的程式碼是否可以貼上來看看呢??
(>
-- >< face="Verdana, Arial, Helvetica">            try
        {
                Sleep((unsigned int)10000);
                NMPOP3->Connect();
        }
        catch(...)
        {
        //在Form8增加Error訊息,並且將Stop Command-->Close Command
          TListItem *F8Item;
          F8Item = Form8->ListView1->Items->Add();
          F8Item->Caption =  "Connection Failed to "   NMPOP3->Host;
          Form8->cmdstop->Visible = false;
          Form8->cmdclose->Visible = true;
        }
  
       在連線前必須停十秒是因為怕使用者還在上一個HOST連線的狀態,又按下
另一個HOST的連線動作,這樣會造成程式當機....     
        

try
{
Button1->Enable = false;
    try
    {
        Sleep((unsigned int)10000);
        NMPOP3->Connect();
    }
    catch(...)
    {
        //在Form8增加Error訊息,並且將Stop Command-->Close Command
        TListItem *F8Item;
        F8Item = Form8->ListView1->Items->Add();
        F8Item->Caption = "Connection Failed to "   NMPOP3->Host;
        Form8->cmdstop->Visible = false;
        Form8->cmdclose->Visible = true;
    }
__finally
{
    Button1->Enable = true;
}