about1.cpp

C++Builder高级应用开发指南随书源码

//$$---- activex aboutbox source ---- (stAboutBoxSource)
//---------------------------------------------------------------------------


#include <vcl.h>
#pragma hdrstop

#include "About1.h"
//---------------------------------------------------------------------------


#pragma package(smart_init)
#pragma resource "*.dfm"
//---------------------------------------------------------------------------
void ShowMyComponentXAbout(void)
{
  TMyComponentXAbout* Form;
  Form = new TMyComponentXAbout(NULL);
  try
  {
    Form->ShowModal();
  }
  catch(...)
  {
    Form->Free();
    return;
  }
  Form->Free();
}
//---------------------------------------------------------------------------
__fastcall TMyComponentXAbout::TMyComponentXAbout(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------