//---------------------------------------------------------------------------    #include 
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
  : TForm(Owner)
{
  Width  = 100;
  Height = 100;
}
//---------------------------------------------------------------------------    void __fastcall TForm1::FormActivate(TObject *Sender)
{
  // 先把Form移到左上角, 再慢慢Shift下來.
  MoveWindow(Handle, 0, 0, Width, Height, TRUE);
  for (int i = 0; i < 20; i  )
  {
    MoveWindow(Handle, Left   i, Top   i, Width, Height, TRUE);
    Sleep(100);
    Application->ProcessMessages();
  }
}
//---------------------------------------------------------------------------