[marcoszorrilla]

Código Delphi [-]
procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
 If DbGrid1.ReadOnly = False then
 begin
 ShowMessage('Solo lectura = Falso');
 end;
end;

Un Saludo.