dchangetel.cpp

来自「一套BCB６开发的电话管理系统」· C++ 代码 · 共 38 行

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "DChangeTel.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TDlgChangeTel *DlgChangeTel;
//---------------------------------------------------------------------------
__fastcall TDlgChangeTel::TDlgChangeTel( bool bNew, String& StrPhone,
        String& StrMemo, TComponent* Owner)
        : bNew( bNew), StrPhone( StrPhone), StrMemo( StrMemo), TForm(Owner)
{
    if( bNew) {
        ETPhone->ReadOnly = false;
    }
    
    ETPhone->Text = StrPhone;
    ETMemo->Text = StrMemo;

}
//---------------------------------------------------------------------------
void __fastcall TDlgChangeTel::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    Action = caFree;
    DlgChangeTel = NULL;
}
//---------------------------------------------------------------------------
void __fastcall TDlgChangeTel::OkBtnClick(TObject *Sender)
{
    StrPhone = ETPhone->Text;
    StrMemo = ETMemo->Text;
}
//---------------------------------------------------------------------------