에디트 박스의 체인지 이벤트에서 스트링그리드를 리프레쉬해주면 될것같군요..



procedure Tf_yesan201.sgrd_amountDrawCell(Sender: TObject; ACol,

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

var

itmp, TW: integer;

stmp : string;

begin

with sgrd_amount.Canvas do

begin

FillRect(Rect);



try

itmp := strtoint(sgrd_amount.Cells[ACol,ARow]);

stmp := FormatFloat('#,##0',itmp);

except

stmp := sgrd_amount.Cells[ACol,ARow];

end;



TW := TextWidth(stmp);



case ACol of

1: begin

case ARow of

0: begin

// brush.color := $00ACE6A2;

fillRect(rect);

TextOut(Rect.Right - TW - 2, Rect.Top+2, stmp);

end;

1: begin

// brush.color := $00ACE6A2;

fillRect(rect);

TextOut(Rect.Right - TW - 2, Rect.Top+2, stmp);

end;

2: begin

TextOut((Rect.Left + Rect.Right - TW) div 2, Rect.Top+2, stmp);

end;

else begin

TextOut(Rect.Right - TW - 2, Rect.Top+2, stmp);

end;

end;

end;

else begin

TextOut((Rect.Left + Rect.Right - TW) div 2, Rect.Top+2, stmp);

end;

end;

end;

end;





mildshin wrote:

> 여기계신 많은 고수님들의 도움을 많이 받고 있는 가련한 인생입니다..

> 이번에도 절 좀 도와 주세요..

> 다른게 아니라.

>

> 예) 폼위에 stringgrid가 하나 있고 에디트박스가 두개 있을때 사용자가 첫번째 에디트박스에 '1'을 적으면 stringgrid.rows[1]의 색깔이 빨강으로 변하고 '2'를 적으면 stringgrid.rows[2]의 색깔이 빨강으로 변하고 만약 두번째 에디터 박스에 '1'을 적으면

> stringgrid.rows[1]의 글자색깔이 빨강으로 변하고 '2'를 적으면 stringgrid.rows[2]의 글자색이 빨강으로 변하고.....

>

> 이런식으로 할려면 어떻게 하나요...

> 제발 절 좀 도와주세요...

> 가내두루 평안하시옵소서....