저도 언젠가 델마당 게시판에서 검색을 해보았는데

Rudora 님께서 올려주신 글에 저런 내용이 있더라고요

====================================================================
TEdit의 CharCase 라는 프로퍼티에 해당값을 주면 정렬을 구현할 수 있긴합니다.
8: 왼쪽
9: 오른쪽
10: 가운데

ps. TEditCharCase로 형변환해서 대입~ ^^;;
====================================================================

CharCase는 아마 오브젝트인스팩터에는 나타나지 않았던거롤 기억됩니다.

종진님, 해보니깐 안되던데요... =.=

Edit1.CharCase := TCharCase(9);

이런식으로하라는것 말씀하신것아닙니까?

대신에 TEdit1 상속받아서 간단히 만들수이는 컴포넌트 소스를 찾아왔어요.

====================================================================
unit AlignEdit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type

  TAlign = (eaLeft, eaCenter, eaRight);

  TAlignEdit = class(TEdit)
  private
    { Private-Deklarationen }
    FAlign: TAlign;
    procedure SetAlign(const Value: TAlign);
  protected
    { Protected-Deklarationen }
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); override;
  published
    { Published-Deklarationen }
    property Alignment: TAlign read FAlign write SetAlign default eaLeft;
  end;

procedure Register;

implementation

constructor TAlignEdit.Create(Aowner: TComponent);
begin
  inherited Create(AOwner);
  FAlign := eaLeft;
end;

procedure TAlignEdit.SetAlign(const Value: TAlign);
begin
  if FAlign <> Value then
  begin
    FAlign := Value;
    RecreateWnd;
  end;
end;

procedure TAlignEdit.CreateParams(var Params: TCreateParams);
begin
  inherited;
  case FAlign of
    eaLeft: Params.Style   := Params.Style or ES_LEFT;
    eaCenter: Params.Style := Params.Style or ES_CENTER;
    eaRight: Params.Style  := Params.Style or ES_RIGHT;
  end;
end;

procedure Register;
begin
  RegisterComponents('SwissDelphiCenter', [TAlignEdit]);
end;

end.

이렇게 쓰시면 됩니다만.. 어차피 별도 컴포넌트를 사용해야 한다면 좀더 기능이 편리한걸 찾아쓰시겠죠 ^^?


담부턴 꼭 확인해보고 답글달겠습니다.

P.S : TCharCase 가 아니고 TEditCharCase 네요 ^^;

집에 델파이리소스북(Delphi Resource Book)이라는 책이있는데요?
책을 막 뒤져보니깐, TFnpNumericEdit 1.01.00 이라는 컴포넌트를 발견했
습죠. 후훗. ^^;;

TFnpNumericEdit 1.01.00
- 최대/최소값이나 위치 정렬을 지원하는 숫자 입력 컴포넌트로 오론쪽이나 가운 위치인 경우는 최대길이(Maxlength)속성을 설정해야합니다. 값(Value 속성)은 AsCurrency, AsInteger 속성으로 읽거나 수정할 수 있습니다.

컴포넌트없이 일반폼에서 구현하는방법을 해보려고 용쓰다가 그냥 컴포넌트로 올려드립니다.

그럼 즐프~

힘들면 자료실을 뒤져보세요....

그럼 오른쪽 정렬이 가능한 Edit 가 있을 겁니다.