animatefrm.cpp

这是书上的代码

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "animatefrm.h"
#include "mythread.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Trayicon"
#pragma resource "*.dfm"
TaForm *aForm;
//---------------------------------------------------------------------------
__fastcall TaForm::TaForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TaForm::FormCreate(TObject *Sender)
{
//隐藏所有图片，并使图片处于同一位置
        TImage *images[]={Image1,Image2,Image3,Image4,Image5,Image6};
        Caption=""; //窗口无标题
        BorderStyle=bsNone; //无边框
        BorderIcons.Clear(); //无系统菜单及按钮
        FormStyle=fsStayOnTop; //使窗口始终处于最上层
        for(int i=0;i<IMAGECOUNT;i++) {
         Images[i]=images[i];
         Images[i]->Visible=false;
         Images[i]->Transparent=true; //图片透明
         Images[i]->Left=0;
         Images[i]->Top=0;
        }
        Width=Image1->Width;
        Height=Image1->Height;
        Left=Screen->Width+20;
        Top=Screen->Height+20;
//使应用程序不出现在任务栏
        SetWindowLong(Application->Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
}
//---------------------------------------------------------------------------

void __fastcall TaForm::mCloseClick(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------
void __fastcall TaForm::mStartClick(TObject *Sender)
{
        End=false;
        mStart->Enabled=false;
        mClose->Enabled=false;
        mEnd->Enabled=true;
//创建线程
        AnimateThread      *animate=new AnimateThread(false);
        animate->OnTerminate=ThreadDone; //指定线程结束事件处理函数
}
//---------------------------------------------------------------------------

void __fastcall TaForm::mEndClick(TObject *Sender)
{
        End=true;
}

void __fastcall TaForm::ThreadDone(TObject *)
{
//线程结束时自动调用
        mStart->Enabled=true;
        mClose->Enabled=true;
        mEnd->Enabled=false;
        Left=Screen->Width+20;
}
//---------------------------------------------------------------------------

void __fastcall TaForm::FormShow(TObject *Sender)
{
//主窗口显示时自动开始动画
        mStartClick(this);
}
//---------------------------------------------------------------------------


void __fastcall TaForm::FormClose(TObject *Sender, TCloseAction &Action)
{
//若线程结束后才能退出程序
        if(mStart->Enabled)
         Action=caFree;
        else Action=caNone;
}

//---------------------------------------------------------------------------