ceabout.cpp

来自「给大家介绍一个小的C++builder软件,或许对大家在采购,超市的软件编程上有」· C++ 代码 · 共 71 行

/* --------------------------------------------------------------------------
 * CurrencyEdit
 *
 * 程序作者：林华锋
 * 创建日期：2001-11-22
 * 修改日期：2001-11-25
 *
 * ==========================================================================
 * LCSOFT货币输入控件
 */
 
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "CeAbout.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TCeAboutForm *CeAboutForm;
//---------------------------------------------------------------------------
__fastcall TCeAboutForm::TCeAboutForm(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------

void __fastcall TCeAboutForm::Button1Click(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------

void __fastcall TCeAboutForm::MailLabelMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
        MailLabel->Font->Color = clRed;
}
//---------------------------------------------------------------------------

void __fastcall TCeAboutForm::WebLabelMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
        WebLabel->Font->Color = clRed;
}
//---------------------------------------------------------------------------

void __fastcall TCeAboutForm::FormMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
        MailLabel->Font->Color = clBlue;
        WebLabel->Font->Color = clBlue;
}
//---------------------------------------------------------------------------

void __fastcall TCeAboutForm::MailLabelClick(TObject *Sender)
{
        ShellExecute(NULL, "open", ("mailto:" + MailLabel->Caption).c_str(), NULL, NULL, SW_MAXIMIZE);
}
//---------------------------------------------------------------------------

void __fastcall TCeAboutForm::WebLabelClick(TObject *Sender)
{
        ShellExecute(NULL, "open", WebLabel->Caption.c_str(), NULL, NULL, SW_MAXIMIZE);
}
//---------------------------------------------------------------------------