aoutnew.cpp

来自「企业员工考勤和工资管理系统」· C++ 代码 · 共 50 行

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

#include <vcl.h>
#pragma hdrstop

#include "AoutNew.h"
//#include "Global.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TAboutNew *AboutNew;
//---------------------------------------------------------------------------
__fastcall TAboutNew::TAboutNew(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TAboutNew::Lab_addrssClick(TObject *Sender)
{
    //if  (Web_Form->Showing == false)
    //     Web_Form->ShowModal();

    ShellExecute(Handle,NULL,Lab_addrss->Caption.c_str(),NULL,NULL,SW_SHOWNORMAL);
    Lab_addrss->Font->Color = clPurple;
}
//---------------------------------------------------------------------------
void __fastcall TAboutNew::Lab_addrssMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
    Lab_addrss->Font->Color =  clBlue;
    Lab_addrss->Font->Size  =  10;
}
//---------------------------------------------------------------------------
void __fastcall TAboutNew::FormMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
    Lab_addrss->Font->Color =  clPurple;
    Lab_addrss->Font->Size  =  10;
}
//---------------------------------------------------------------------------