김영진 wrote:

> Edit 박스에 숫자를 문자로 바꾸어서 출력해주었습니다.

> 그런데 정렬이 왼쪽으로 되더군요..

> 혹시 오른쪽으로 정렬할 수 있는 방법이 있으면 가르쳐 주시면

> 고맙겠습니다.



이재식 Wrote :

안녕하십니까?



에디트 박스는 문자를 오른쪽으로 정렬할 수 있는 기능이 없습니다.

즉, 그런 기능을 제공해주는 새로운 컴포넌트를 만들거나

아니면, 인터넷 자료실에서 구해야겠죠.

보니까, numEdit라해서 그런 컴포넌트가 있는 것 같더라구요.

그런데, 컴포넌트를 자꾸 이용하는 버릇을 가지는것은

좋은 습관은 아닙니다.

그런 간단한 기능은 코딩으로 구현해서 쓰는것이

좋을 것 같다는 생각이 듭니다.



여기 제가 코딩한 것이 있습니다.

불충분한것은 기능을 확장해서 쓰십시요.

적당한 이벤트에 첨부하세요.



var

TextLen, i : Integer ;

blank : string ;

begin

blank := #32 ;

TextLen := Canvas.TextWidth(Edit1.Text) ;



Edit1.text := FormatFloat('#,##0', StrToFloat(Edit1.Text)) ;



for i := 1 to (Edit1.Width - TextLen) div 3 - 3 do

begin

blank := blank + #32 ;

end ;

Edit1.text := blank + Edit1.Text ;

end ;



그럼...