delphi7 dbgrideh 设置readonly 怎么复制一行

如果您希望在 DBGridEh 中设置 ReadOnly 属性时仍然能够复制整行，请按照以下步骤进行操作：

1. 在 DBGridEh 的 Options 中设置 dgTitles 和 dgAlwaysShowEditor 选项。
2. 在 DBGridEh 的事件处理程序中添加以下代码：

procedure TForm1.DBGridEh1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = Ord('C')) and (ssCtrl in Shift) then
begin
if not DBGridEh1.EditorMode then
begin
DBGridEh1.Selection.CopyToClipboard;
Key := 0;
end;
end;
end;

该代码在用户按下 Ctrl+C 键时检查当前是否处于编辑模式。如果不是，则将当前选中的行的内容复制到剪贴板。这样，无论 ReadOnly 属性是否设置为 True，用户都可以复制整行的内容。