//---------------------------------------------------------------------------
#include ＜vcl.h＞
#pragma hdrstop    #include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
//難看的 API 函式 Edit 元件 
AnsiString str = "UglyLookEdit";
//創造一個 Edit 元件
HWND Hedit = ::CreateWindow("EDIT", str.c_str(),
               WS_VISIBLE | WS_CHILD | WS_BORDER | WS_TABSTOP | ES_RIGHT,
               70, 70,
               150, 20,
               Handle, NULL, HInstance, NULL);    //好看的 Edit 元件
TREdit *edit = new TREdit(this);
edit-＞Parent = Form1;
edit-＞Name = "Edit";
edit-＞Text = "GoodLookEdit";
edit-＞Width = 120; edit-＞Height = 20;
edit-＞Left = 20; edit-＞Top = 30;
//請自行添加此 Edit 元件的動態事件...
}
//以下是REdit單字串元件類別的函式--------------------------------------------
__fastcall TREdit::TREdit(TComponent* Owner)
: TEdit(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TREdit::CreateParams(TCreateParams &Params)
{
TEdit::CreateParams(Params);
Params.Style = Params.Style | ES_RIGHT;// ES_MULTILINE;
}
//---------------------------------------------------------------------------
namespace Reditcode
{
void __fastcall PACKAGE Register()
  {
  TComponentClass classes[1] = {__classid(TREdit)};
  RegisterComponents("MyRightEdit", classes, 0);
  }
}
//---------------------------------------------------------------------------