myedit.cpp

《C Builder 5技术内幕》程序源代码

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "MyEdit.h"
#include "MyEditComponent.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormMyEdit *FormMyEdit;
//---------------------------------------------------------------------------
__fastcall TFormMyEdit::TFormMyEdit(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormMyEdit::ButtonShowMyEditClick(TObject *Sender)
{
  TMyEdit *MyEdit[5];
  for( int i=0; i<5; i++ )
  {
    MyEdit[i] = new TMyEdit( this );
    MyEdit[i]->Parent = this;
    MyEdit[i]->Top = 40 * i;
    MyEdit[i]->Show();
  }
}
//---------------------------------------------------------------------------