unit2.cpp

版本窗口程序 这是书本上的相关内容

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

#include <vcl.h>
#pragma hdrstop

#include "Unit2.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TEditForm *EditForm;
//---------------------------------------------------------------------------
__fastcall TEditForm::TEditForm(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TEditForm::btnOkClick(TObject *Sender)
{
    int nTemp = pnlTitle->Tag;
    MainForm->lbxMain->Items->Strings[nTemp] = edtFirst->Text;
    MainForm->pStrList->Strings[nTemp] = edtSecond->Text +
            String((char)0x03) + edtThird->Text;
    ModalResult = mrOk;
}
//---------------------------------------------------------------------------
void __fastcall TEditForm::pnlTitleMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
    Refresh();
    if(Button == mbLeft)
    {
        ReleaseCapture();
        Perform(WM_SYSCOMMAND, 0xf017, 0);
    }
}
//---------------------------------------------------------------------------
void __fastcall TEditForm::btnMenuCloseClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------