我将stringgrid的goedit设为true,但是我想让stringgrid的第二列设为只读，请问怎么办法

Question

如题

Answer 1

楼主的性欲值不高哦
procedure Tfrm_Memo.StringGridSelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
    if ACol =2 then
    canSelect := false;
end;

Answer 2

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
 if ACol =2 then
   StringGrid1.Options := StringGrid1.Options - [goEditing]
 else
   StringGrid1.Options := StringGrid1.Options + [goEditing];
end;