[Delphi]TStringGrid OnSelectCell 이벤트 특정 컬럼 수정 막기

OnSelectCell 이벤트에서 변경.

 

procedure SelectCell(Sender: TObject; ACol, ARow: Integer; var FSelect: Boolean);
begin
    if (ACol = Col) and (ARow = Row) then
begin
    {컬럼에서 수정모드 막음}
    TStringGrid(Sender).Options := TStringGrid(Sender).Options - [goEditing];
end
else
    TStringGrid(Sender).Options := TStringGrid(Sender).Options + [goEditing];
end;