BOOL SetTransparent(HWND hWnd, COLORREF crKey, BYTE  bAlpha, DWORD dwFlags);
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
    SetWindowLong(Form3->Handle,GWL_EXSTYLE,GetWindowLong(Form3->Handle, GWL_EXSTYLE) | WS_EX_LAYERED);
    SetTransparent( Form3->Handle, 0, 0, LWA_ALPHA);
}
//---------------------------------------------------------------------------
void __fastcall TForm3::FormActivate(TObject *Sender)
{
    Label1->Caption=" Loading";        //延遲秀出視窗
    Application->ProcessMessages();
    for(int nPercent=0; nPercent<=200 ;nPercent  )
    {
       SetTransparent( Form3->Handle, 0, 255 * nPercent/200, LWA_ALPHA);
    }
}//---------------------------------------------------------------------------
BOOL SetTransparent(HWND hWnd, COLORREF crKey, BYTE  bAlpha, DWORD dwFlags)
{
  HINSTANCE  m_hUserDll=LoadLibrary("user32.dll");
  BOOL bRet = TRUE;
  typedef BOOL (WINAPI* lpfnSetTransparent)(HWND hWnd, COLORREF crKey, BYTE bAlpha, DWORD dwFlags);
  if ( m_hUserDll )
  {
    lpfnSetTransparent pFnSetTransparent = NULL;
    pFnSetTransparent = (lpfnSetTransparent)GetProcAddress(m_hUserDll,"SetLayeredWindowAttributes");        if (pFnSetTransparent )
       bRet = pFnSetTransparent(hWnd, crKey, bAlpha, dwFlags);
    else
       bRet = FALSE;
  }
   return bRet;
}

引言: GGL 謝謝你 因為我前幾天電腦出些問題 現在才結案 在此跟你說聲抱歉 < face="Verdana, Arial, Helvetica"> 不會啦，我還想說是不是我的回答不是你要的...