Форум программистов [Powered by Invision Power Board]

Код


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

#ifndef CalcUnitH
#define CalcUnitH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "XPManifest.h"
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TXPManifest *XPManifest1;
private:    // User declarations
public:        // User declarations
        __fastcall TForm1(TComponent* Owner);


//------------------Новый клас старт----------------
class MyEdit:public TEdit
{ private:
   void __fastcall CreateParams(Controls::TCreateParams &Params)
      {TEdit::CreateParams(Params);
       Params.Style=Params.Style|ES_RIGHT;
      }
 public:
    __fastcall MyEdit(Classes::TComponent* AOwner):TEdit(AOwner){};
};

//------------------Новый клас финиш--------------

};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Код


//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)//--------Конструктор формы
        : TForm(Owner)
{
MyEdit *My=new MyEdit(Form1);
My->Height=20;
My->Width=200;
My->Text="0";
My->Left=30;
My->Top=20;
My->Parent=Form1;
}
//---------------------------------------------------------------------------