uloading.cpp

可实现科研信息管理系统的功能,有项目管理,教师管理,科研项目管理等多项内容

//----------------------------------------
//        ULoading.cpp
//                        Coding By:袁军
//                           2004-5-18
//----------------------------------------
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include <windows.h>
#include <mmsystem.h>

#include "ULoading.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
AnsiString Str;
AnsiString path;
//---------------------------------------------------------------------------
__fastcall TFormLoading::TFormLoading(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormLoading::ImageMainClick(TObject *Sender)
{
        //只有关于窗口才可以响应鼠标以及键盘操作；
        if(!isloading)
                Close();
}
//---------------------------------------------------------------------------

void __fastcall TFormLoading::FormKeyPress(TObject *Sender, char &Key)
{
        ImageEgg->SendToBack();
        Str+=Key;
        if(Str.Length()>=7)
        {
                for(int i=1;i<Str.Length()+1;i++)
                {
                        if(Str.SubString(i,7)=="yuanjun"||Str.SubString(i,7)=="YUANJUN")
                        {
                                ShowEgg();
                                Str="";
                        }
                }
        }
}
//---------------------------------------------------------------------------


void __fastcall TFormLoading::ShowEgg()
{
        ImageEgg->BringToFront();  //定义路径;
}


void __fastcall TFormLoading::FormClose(TObject *Sender,
      TCloseAction &Action)
{
        ImageEgg->SendToBack();       
}
//---------------------------------------------------------------------------

void __fastcall TFormLoading::ImageEggClick(TObject *Sender)
{
        ImageMainClick(Sender);
}
//---------------------------------------------------------------------------