unit2.cpp

本程序是一个比较简单的通讯录 该程序可能比较有参考价值的地方 可能就是它用到了数据库的动太链接

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

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm2::Label11MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
        Label11->Font->Color = clYellow;        
}
//---------------------------------------------------------------------------


void __fastcall TForm2::Label11Click(TObject *Sender)
{
           ShellExecute(NULL,"Open","mailto:[e-mail]",NULL,NULL,SW_SHOWNORMAL);

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