Delphiのフォームは、特殊効果機能を達成するためのAPI関数を使用してAnimateWindow

AnimateWindow使用API​​関数:
機能:ディスプレイを形成し、特殊なアニメーションの皮を持って、アニメーションの2種類を生成することができます:
          スクロールのアニメーションやスライドアニメーション
関数のプロトタイプ:BOOL AnimateWindow(HWND hWndを、DWORD dwTime、DWORD dwFlagsパラメータ)
パラメータ:hWndはハンドルが生成されたアニメーション効果を形成する指定。
          アニメーション標準時間を完了するために、アニメーションの再生時間(秒)を指定しdwTime
                 200マイクロ秒;
          dwFlagsパラメータは、アニメーションの種類を指定します。このパラメータは、次のフラグのうちの1つ以上の組合せとすることができます。
フラグ説明:AW_SLIDEスライド式。デフォルトでは、アニメーションの種類を転がりました。ときAW_CENTER
                   ときフラグは、このフラグは無視されます。
          AW_ACTIVEアクティブウィンドウ。AW_HIDEフラグを使用した後、このフラグを使用しないでください。
          フェードアウト効果を使用してAW_BLEND。トップレベルのウィンドウのためのhWndは、このフラグを使用することができた場合のみ。
          AW_HIDEは、ウィンドウがデフォルトで表示され、ウィンドウを非表示にします。
          AW_HIDE AW_CENTERフラグを使用した場合、そのウィンドウが内側にオーバーラップしていること; AW_HIDEを使用しない場合
                    旗、その窓の外側に拡張こと。
          左から右の表示ウィンドウにAW_HOR_POSITIVE。このフラグは、アニメーションやスライドアニメーションをスクロールすることができます
                          使用。ときAW_CENTERフラグは無視されます。
          右から左表示窓にAW_HOR_NEGATIVE。このフラグは、アニメーションやスライドアニメーションをスクロールすることができます
                          使用。ときAW_CENTERフラグは無視されます。
          AW_VER_POSITIVEトップダウン表示窓。このフラグは、アニメーションやスライドアニメーションをスクロールすることができます
                          使用。ときAW_CENTERフラグは無視されます。
          ディスプレイから窓までAW_VER_NEGATIVE。このフラグは、アニメーションやスライドアニメーションをスクロールすることができます
                          使用。ときAW_CENTERフラグは無視されます。
戻り値:この関数が成功した場合、戻り値はゼロであり、関数が失敗した場合、戻り値はゼロです。次の場合には
         関数は失敗します:ウィンドウは、ウィンドウの境界を使用して、まだ可視ウィンドウが表示窓があり、窓
         まだ隠されたウィンドウを非表示になっています。拡張エラー情報を取得するには、GetLastError関数を呼び出します
         ナンバー。
注:あなたはAW_VER_POSITVEまたはAW_VER_NEGATIVEでAW_HOR_POSITIVEまたはAW_HOR_NEGTVEすることができます
                  組み合わせは、ウィンドウをアクティブにします。   
************************************************** ******************************************************** }
 // から以下圧延上記の
手順TForm1.FormCreate(送信者:TObjectを)
 開始
  AnimateWindow(ハンドル、1000、AW_SLIDE + AW_VER_NEGATIVE)。
 エンド;

// 渐渐隐去
手順TForm1.SpeedButton4Click(送信者:TObjectを);
開始
  AnimateWindow(ハンドル、2000、AW_SLIDE + AW_BLEND + AW_HIDE)。
  Application.Terminate;
エンド;

 

おすすめ

転載: www.cnblogs.com/windson/p/12570792.html