delphi7 dbgrideh 设置readonly 怎么复制

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

1. 在 DBGridEh 的 Options 中设置 dgTitles 和 dgAlwaysShowEditor 选项。
2. 在 DBGridEh 的 Columns 属性中将需要复制的列的 ReadOnly 属性设置为 False。
3. 在 DBGridEh 的事件处理程序中添加以下代码：

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

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