00001 //--------------------------------------------------------------------------- 00002 00003 #include <vcl.h> 00004 #pragma hdrstop 00005 00006 #include "about.h" 00007 //--------------------------------------------------------------------------- 00008 #pragma package(smart_init) 00009 #pragma resource "*.dfm" 00010 TAboutBox *AboutBox; 00011 //--------------------------------------------------------------------------- 00012 __fastcall TAboutBox::TAboutBox(TComponent* Owner) 00013 : TForm(Owner) 00014 { 00015 } 00016 //--------------------------------------------------------------------------- 00017 void __fastcall TAboutBox::Button1Click(TObject *Sender) 00018 { 00019 Close(); 00020 } 00021 //--------------------------------------------------------------------------- 00022