procedure TMainForm.BizFormShow(Sender: TObject);
begin
ZCXX.TZSJWG(DocViewZCXX_ZSJWG.doc).DataGrid.OnDblClick := DataGridDblClick;
end;
procedure TMainForm.DataGridDblClick(Sender: TObject);
begin
if ZCXX.TZSJWG(DocViewZCXX_ZSJWG.doc).DataGrid.FocusedColumn = 1 then
dialogs.ShowMessage('双击时焦点在只读字段上');
end;