TAdvEdit复制到剪贴板

Question

我想将TAdvEdit.Text复制到剪贴板。

我试过了：

procedure TFormMain.btnCopyToCbTestNameClick(Sender: TObject);
begin
  edtTestName.CopyToClipboard;
  ShowMessage('Test name copied to clipboard.');
end;

它不会出错，但是当我按 CTRL + V 时，不会粘贴任何内容。

Answer 1

CopyToClipboard方法仅复制选定的文本。我最好的猜测是你没有在你的控件中选择任何文字。在调用之前尝试选择一些。例如，要选择整个文本：

procedure TFormMain.btnCopyToCbTestNameClick(Sender: TObject);
begin
  edtTestName.SelectAll;
  edtTestName.CopyToClipboard;
end;

这适用于VCL编辑控制，以便 TAdvEdit 。