www.pudn.com > remoteavi.rar > Unit4.cpp

//--------------------------------------------------------------------------- 
 
#include  
#pragma hdrstop 
 
#include "Unit4.h" 
#include "Unit1.h" 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm4 *Form4; 
//--------------------------------------------------------------------------- 
__fastcall TForm4::TForm4(TComponent* Owner) 
        : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm4::Button1Click(TObject *Sender) 
{ 
Form4->Close(); 
Form1->SetRate(StrToInt(Edit1->Text)) ; 
} 
//--------------------------------------------------------------------------- 
 
void __fastcall TForm4::FormActivate(TObject *Sender) 
{ 
unsigned long  currate; 
currate = Form1->GetCurrRate() ; 
Label3->Caption = IntToStr(currate); 
} 
//---------------------------------------------------------------------------