about.cpp

来自「特别是在题库管理模块中对自动组卷功能常用的算法（包括随机选取法、回溯试探法和遗传」· C++ 代码 · 共 36 行

//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "About.h"
//---------------------------------------------------------------------
#pragma link "SUIForm"
#pragma resource "*.dfm"
TAboutBox *AboutBox;
//---------------------------------------------------------------------
__fastcall TAboutBox::TAboutBox(TComponent* AOwner)
	: TForm(AOwner)
{
}
//---------------------------------------------------------------------
void __fastcall TAboutBox::OKBtnClick(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------

void __fastcall TAboutBox::Label5Click(TObject *Sender)
{
       Label5->Font->Color=clActiveCaption;
       ShellExecute(Application->Handle,"Open","http://www.xhrc.js.cn",NULL,NULL,SW_SHOW);
}
//---------------------------------------------------------------------------

void __fastcall TAboutBox::Label7Click(TObject *Sender)
{
       Label7->Font->Color=clActiveCaption;
       ShellExecute(Application->Handle,"Open","mailto:[e-mail]",NULL,NULL,SW_SHOW);
}
//---------------------------------------------------------------------------