//--------------------------------------------------------------------------- #include #pragma hdrstop #include "ListInit.h" #include "TpvVentas.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TAcercaDe *AcercaDe; //--------------------------------------------------------------------------- __fastcall TAcercaDe::TAcercaDe(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TAcercaDe::Timer1Timer(TObject *Sender) { Timer1->Enabled = false; Hide(); Ventas->ShowModal(); Close(); } //---------------------------------------------------------------------------