about.cpp

停车场用

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

#include <vcl.h>
#pragma hdrstop

#include "About.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
//---------------------------------------------------------------------------
__fastcall TAboutForm::TAboutForm(TComponent* Owner)
        : TForm(Owner)
{
}
//关于
int DoAbout(TComponent* Owner)
 {
  TAboutForm *te;
  int rc;

  rc=-1;
  te = new TAboutForm(Owner);
  if(te!=NULL){
    te->ShowModal();
    delete te;
   }
  return(rc);
 }

void __fastcall TAboutForm::m_HTTPLabelClick(TObject *Sender)
{
  char szBuf[100];

  m_HTTPLabel->GetTextBuf(szBuf,sizeof(szBuf));
  ShellExecute(NULL,"open",szBuf,NULL,NULL,SW_SHOWNORMAL);//运行网页
}

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

//---------------------------------------------------------------------------
void __fastcall TAboutForm::FormMouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
 m_HTTPLabel->Font->Color =  clPurple;
}