🚀 go-pugleaf

"Safari" <Safari@alloymail.com> wrote:
> I want to have a TEdit with taCenter alignment,

You could use the SetWindowLong() function or subclass the
TEdit and dynamically allocate the object:

class TCEdit : public TEdit
{
    public:
        __fastcall TCEdit( TComponent* Owner ) : TEdit( Owner )
        {
        }
        void __fastcall CreateParams( TCreateParams& Params )
        {
          TEdit::CreateParams( Params );
          Params.Style |= ES_CENTER;
        }
};

TCEdit* CenteredEdit = new TCEdit( this );

Note : you can also use the same code to make a right-aligned
edit by replacing ES_CENTER with ES_RIGHT (and changing the
name of course).


OR derive your own component and install it to a package. Click Component | New Component and make the code look like this:

//---- header
//-------------------------------------------------------------
#ifndef CEditH
#define CEditH
//-------------------------------------------------------------
#include <SysUtils.hpp>
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
//-------------------------------------------------------------
class PACKAGE TCEdit : public TEdit
{
private:
protected:
public:
        __fastcall TCEdit(TComponent* Owner);
   virtual void __fastcall CreateParams( TCreateParams& Params );
__published:
};
//-------------------------------------------------------------
#endif
//-- cpp
//-------------------------------------------------------------
#include <vcl.h>

#pragma hdrstop

#include "CEdit.h"
#pragma package(smart_init)
//-------------------------------------------------------------
// ValidCtrCheck is used to assure that the components created do not have
// any pure virtual functions.
//

static inline void ValidCtrCheck(TCEdit *)
{
        new TCEdit(NULL);
}
//-------------------------------------------------------------
__fastcall TCEdit::TCEdit(TComponent* Owner) : TEdit(Owner)
{
}
//-------------------------------------------------------------
void __fastcall TCEdit::CreateParams( TCreateParams& Params )
{
    TEdit::CreateParams( Params );
    Params.Style = Params.Style | ES_CENTER; // ES_MULTILINE;
}
//-------------------------------------------------------------
namespace Cedit
{
        void __fastcall PACKAGE Register()
        {
                 TComponentClass classes[1] = {__classid(TCEdit)};
                 RegisterComponents("Samples", classes, 0);
        }
}
//-------------------------------------------------------------

Then save the files and click Component | Install Component
and select a new package that you will provide the name for.

Also note that not all versions of Windows support ES_CENTER
and ES_RIGHT for single-line edit controls. The alternative is
to use a TMemo instead, sized to a single line, and disable the
Enter key and strip out carriage returns when pasting text.

~ JD