类似Grid组件中，如果复制单元格的内容到剪贴板？

Question

类似Grid组件中，如果复制单元格的内容到剪贴板？
比如StringGrid或其它DBGrid类型组件，当这些类组件都不是处于可编辑状态时，
如何在选中某一单元格后，按Ctrl+C, 或选择弹出菜单项（自己写的菜单项），把该单元格中的内容复制到剪贴板上？

Answer 1

建立一個TEdit的控件，然後再利用其CopyToClipboard
如：procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text := StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row];
  Edit1.SelectAll;
  Edit1.CopyToClipboard;
end;