박혁 께서 말씀하시기를...

> 안녕하십니까? 우리나라에 뛰어난 프로그래머가 많은 것에 대해 무척자랑스럽게 생각합니다.

> 제가 궁금한 것은 특정셀의 사용을 금지하고, 대신 설정된 내용은 display 될 수 있도록

> stringGrid에서 방법이 있는지요.다른 셀들에서는 접근하여 text를 집어넣을 수 있습니다. 사용하지 못한다는 표시로 글자색을 바꾼다든지 해도 괜찮습니다.

> 선생님들의 많은 조언 부탁드립니다.



제가 제대로 이해했는지 모르겠네요..

스트링그리드에서 특정 셀이나 컬럼에서 ReadOnly 상태로 만들고 싶으시다는 말씀으로 전 이해를 했는데..



여하튼 특정 컬럼에서 에디팅이 안되게 하는 예입니다..(짝수 컬럼에서)



procedure TForm1.StringGrid1SelectCell(Sender: TObject; Col, Row: Integer;

var CanSelect: Boolean);

begin

if Col mod 2 = 0 then

StringGrid1.Options := StringGrid1.Options + [goEditing]

else

StringGrid1.Options := StringGrid1.Options - [goEditing];

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

StringGrid1.Options := StringGrid1.Options - [goEditing];

end;