about.cpp

来自「C++Builder程序员编程手记《配书光盘》」· C++ 代码 · 共 41 行

//----------------------------------------------------------------------------
//Borland C++Builder
//Copyright (c) 1987, 1998 Borland International Inc. All Rights Reserved.
//----------------------------------------------------------------------------
//---------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "about.h"
#include <stdio.h>
//----------------------------------------------------------------------------
#pragma resource "*.dfm"
Taboutform *aboutform;
//----------------------------------------------------------------------------
__fastcall Taboutform::Taboutform(TComponent *Owner)
  : TForm(Owner)
{
}
//----------------------------------------------------------------------------


void __fastcall Taboutform::OKButtonClick(TObject *Sender)
{
    Close();   
}
//---------------------------------------------------------------------------
void __fastcall Taboutform::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action=caFree;
}
//---------------------------------------------------------------------------
void ShowForm(AnsiString FormCaption,AnsiString Version)
{
    aboutform=new Taboutform(NULL);
    aboutform->Caption=FormCaption;
    aboutform->Label1->Caption=Version;
    aboutform->ShowModal();
    delete aboutform;
}