最外層インターフェースアプローチを形成するためのDelphiローディングGIFアニメーション

ユニットUnit1は、

インタフェースは

使用
  Winapi.Windows、Winapi.Messages、System.SysUtils、System.Variants、System.Classes、
  Vcl.Graphics、Vcl.Controls、Vcl.Forms、Vcl.Dialogs、Vcl.StdCtrlsと、

入力
  TForm1 = クラス（TFormは）
    MEMO1：TMemoオブジェクトを、
    Label1：TLabel; 
    EDIT1：TEDIT。
    ボタン1：TButtonの。
    手続きButton1Click（送信者：TObjectを）;
  プライベート
    { プライベート宣言} 
  公共
    { 公開宣言} 
  エンド。

VAR 
  をForm1：TForm1; 

実装は

使用しています
  Unit2のを。
{ $のR * .DFM } 

手順TForm1.Button1Click（送信者：TObjectを）。
開始
  OpenFrm（上、左、幅、高さ）; 
エンド; 

終わり。

コードの表示

ユニットUnit2の; 

インタフェースは

使用
  Winapi.Windows、Winapi.Messages、System.SysUtils、System.Variants、System.Classes、
  Vcl.Graphics、Vcl.Controls、Vcl.Forms、Vcl.Dialogs、Vcl.StdCtrls、Vcl.ExtCtrlsと、

入力
  TForm2 = クラス（TFormは）
    画像1：TImageのを、
    タイマ1：TTIMER。
    手順FormCreate（送信者：TObjectを）;
  プライベート
    { プライベート宣言} 
    フレット：ブール。
  公共
    { 公開宣言} 
  端; 

関数OpenFrm（上、左、幅、高さ：整数）：ブール; 

実装の

用途
  GifImg; 
{ $のR * .DFM } 

関数OpenFrm（上、左、幅、高さ：整数）：ブール。
VAR 
  のForm2：TForm2。
開始
  結果： = Falseにします。
  Form2を： = TForm2。作成（ゼロ）。
  試す
    Form2.Width： =（幅DIV  4）* 3を、
    Form2.Height： =高さのdiv  2 ; 
    Form2.Top： =トップ+（（高さ- Form2.Height）DIV  2 ）。
    Form2.Left： =左+（（幅- Form2.Width）DIV 2 ）; 
    Form2.ShowModal; 
    結果： = Form2.FRet;
   最後に
    FreeAndNil （Form2を）;
   エンド;
 エンド; 

手順TForm2.FormCreate（送信者：TObjectを）;
 始める
  Self.BorderStyle： = bsNone; 
  Image1.Align： = alClientへ; 

 / /は、最初のフォームTImageのコンポーネントに入れ：画像1; 
  Image1.Picture.LoadFromFile（' D：\ loadpic \ 1.gif ' ）; 

// AnimationSpeedアニメーションの速度が設定され、値が大きいほど、より速く、 
  TGIFImage（画像1 .Picture.Graphic）は.AnimationSpeed：= 200である。
  TGIFImage（Image1.Picture.Graphic）.Animate：= 真;
エンド; 

終わり。

コードの表示