UniDBGrid1.Columns[0].ReadOnly := True; 是设置的一列的只读，但是我需要某一个单元格只读呢

在UniGUI中，通过设置UniDBGrid的OnBeforeCellRender事件可以实现某一个单元格只读的效果。具体代码如下：

procedure TForm1.UniDBGrid1BeforeCellRender(Sender: TUniDBGrid; ACol,
  ARow: Integer; AField: TField; AFont: TFont; var AText: string;
  var ABackColor, AForeColor: TColor; AAlignment: TAlignment;
  var ADone: Boolean);
begin
  if (ACol = 1) and (ARow = 1) then // 设置第2行第2列的单元格只读
    Sender.Columns[ACol].ReadOnly := True;
end;

在上面的代码中，我们判断单元格的行和列是否为指定的行和列，如果是，则将所在列的ReadOnly属性设置为True，实现该单元格只读的效果。

需要注意的是，通过OnBeforeCellRender事件设置的只读单元格是临时性的，只在该事件被触发时生效，如果需要在多个地方使用，需要在多个事件中分别进行设置。如果只需要在表格初始化时设置某些单元格只读，可以在UniDBGrid的OnGetCellProperties事件中设置ReadOnly属性，具体代码如下：

procedure TForm1.UniDBGrid1GetCellProperties(Sender: TObject; Field: TField;
  AFont: TFont; var Background: TColor; var AAlignment: TAlignment;
  var AReadOnly: Boolean);
begin
  if (Sender as TUniDBGrid).DataSource.DataSet.RecNo = 2 then // 设置第2行的单元格只读
    AReadOnly := True;
end;

在上面的代码中，我们判断当前单元格所处的行是否为指定的行，如果是，则将ReadOnly属性设置为True，实现该单元格只读的效果。