home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 May / PCP163A.iso / Runimage / Cbuilder4 / Examples / Apps / Ipcdemos / ABOUT.CPP next >
Encoding:
C/C++ Source or Header  |  1999-01-26  |  739 b   |  33 lines
  1. //---------------------------------------------------------------------------
  2. #include "about.h"
  3. //---------------------------------------------------------------------------
  4. #pragma resource "*.dfm"
  5. TAboutBox *AboutBox;
  6.  
  7.  __fastcall TAboutBox::TAboutBox(TComponent* Owner) : TForm(Owner)
  8. {
  9. }
  10.  
  11. void __fastcall TAboutBox::FormCreate(TObject *Sender)
  12. {
  13.   Caption = Format("About %s",
  14.                    ARRAYOFCONST((Application->Title)));
  15.   ProgramIcon->Picture->Assign(Application->Icon);
  16.   ProgramName->Caption = Application->Title;
  17. }
  18.  
  19.  
  20. void __fastcall ShowAboutBox()
  21. {
  22.   TAboutBox* a = new TAboutBox(Application);
  23.   try{
  24.     a->ShowModal();
  25.   }
  26.   catch(...){
  27.     a->Free();
  28.     throw;
  29.   }
  30.   a->Free();
  31. }
  32.  
  33.