//--------------------------------------------------------------------------- #include #pragma hdrstop #include "Portada.h" #include "capg_menu.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TAcercaDe *AcercaDe; //--------------------------------------------------------------------------- __fastcall TAcercaDe::TAcercaDe(TComponent* Owner) : TForm(Owner) { Image4->Picture->LoadFromFile( "portada.jpg" ); } //--------------------------------------------------------------------------- void __fastcall TAcercaDe::Timer1Timer(TObject *Sender) { Timer1->Enabled = false; this->Visible = false; MainForm->ShowModal(); Close(); } //---------------------------------------------------------------------------