아래의 코드를 참고해 보세요....onDrawCell 이벤트를 이용해서 가능합니다.



procedure TIndataF.SG1DrawCell(Sender: TObject; ACol,

ARow: Integer; Rect: TRect; State: TGridDrawState);

var

L : integer;

s : String;

begin

S := SG1.Cells[aCol,Arow];

if S <>'' then begin

with SG1.Canvas do begin

FillRect(rect);

if ((Acol =2) or (ACol =3) or (ACol=4)) and (Arow > 0) then begin

try

S := FormatFloat('#,##0',StrToint(s));

except

ShowMessage(S+'은 잘못된값입니다');

Sg1.Cells[ACol,Arow] :='';

s :='';

end;

L := (Rect.Right - TextWidth(S)) -2;

end else begin

if (Arow = 0) then

L := (Rect.Right - Rect.Left-TextWidth(S)) Div 2 + Rect.Left

else

L := Rect.Left;

end;

TextOut(L,Rect.top+2,s);

end;

end;



end;



pallas wrote:

> 프로그램을 끝내고 출력해서 검사? 받는데 우엉 ㅠ ㅠ 앞정렬이 보기 싫대요 뒷정렬 하라는데 프로퍼티에는 없는 것 같고 음 무슨 이야기 인가 하면

>

> 7(88000) 7(88000)

> 7(20) 7(20)

> 이런식의 자료를 ------>이런식으로 뒷자리 정렬 하래요 스트링 그리드에서요

> 부탁드려요 고수님들 ..... ㅠ ㅠ