www.pudn.com > 2.rar > StudentUnit1.cpp

//--------------------------------------------------------------------------- 
 
#include  
#pragma hdrstop 
 
#include "StudentUnit1.h" 
#include "StudentUnit2.h"      //++ 
//--------------------------------------------------------------------------- 
#pragma package(smart_init) 
#pragma resource "*.dfm" 
TForm1 *Form1; 
//--------------------------------------------------------------------------- 
__fastcall TForm1::TForm1(TComponent* Owner) 
        : TForm(Owner) 
{ 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Label2Click(TObject *Sender) 
{ 
 Form2->ShowModal();   //++ 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::Label3Click(TObject *Sender) 
{ 
 Close();                  //++ 
} 
//--------------------------------------------------------------------------- 
void __fastcall TForm1::FormCloseQuery(TObject *Sender, bool &CanClose) 
{ 
if(MessageDlg("Í˳ö?",mtConfirmation,TMsgDlgButtons() << mbOK << mbCancel,0)==mrCancel) 
  CanClose = false;         
} 
//---------------------------------------------------------------------------