빌더 일주일만 하면 안다는 팁.
그냥 검색해서 안 나오길레, 간단히 만들어 자료 보존차원에서 올려 둡니다.

그런데 왜 빌더 2007에서도 TEdit에 Text 정렬 속성이 추가되지 않은 것인지 아쉽군요.

//---------------------------------------------------------------------------
// TEdit 컨트롤의 Text 정렬를 설정한다.

void    SetEditAlignment(TCustomEdit* edit, TAlignment align)
{
    int    style = GetWindowLong(edit->Handle, GWL_STYLE);
    switch(align)
    {
        case taLeftJustify :
            style = style & ~ES_RIGHT;
            break;
        case taRightJustify :
            style = style | ES_RIGHT;
            break;
        case taCenter :
            style = style | ES_CENTER;
            break;
        default :
            return;
    }
    SetWindowLong(edit->Handle, GWL_STYLE, style);
}

//---------------------------------------------------------------------------
// 테스트

void __fastcall TForm2::FormCreate(TObject *Sender)
{
    SetEditAlignment(Edit1, taCenter);
    SetEditAlignment(Edit2, taLeftJustify);
    SetEditAlignment(Edit3, taRightJustify);
    SetEditAlign(MaskEdit1, taCenter);
    SetEditAlign(LabeledEdit1, taCenter);
}
//---------------------------------------------------------------------------