Delphi如何实现复制一个控件到剪贴板的效果？

冥界3大法王

以下代码虽然有效果，但和我要的效果差了一点



有一个ComboBox1
有一个Memo1
点击按钮  【添加Memo内容到ComboBox1】那个 ComboBox1就有内容了
然后。。。我要把当前的内容的那个 ComboBox1 控件 复制到剪贴板
。。。
这样，再到Delphi里就能粘贴使用了。。。
不知我说明白 没有？







unit Unit5;


interface


uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs,
  Vcl.StdCtrls;


type
  TForm5 = class(TForm)
    ComboBox1: TComboBox;
    Button1: TButton;
    Memo1: TMemo;
    Button2: TButton;
    GroupBox1: TGroupBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form5: TForm5;


implementation


{$R *.dfm}


uses
  Clipbrd;


procedure TForm5.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
    ComboBox1.Items.Append(Memo1.Lines);
end;


procedure TForm5.Button2Click(Sender: TObject);
var
  a: TComboBox;
begin
  Clipboard.SetComponent(ComboBox1);
  ComboBox1.Name := 'OriginalButton';
{现在从剪贴板检索按钮}
{并将其添加到GroupBox1}
{请注意，剪贴板按钮命名为ComboBox1，而源按钮已重命名为‘OriginalButton}
  a := TComboBox(Clipboard.GetComponent(Self, GroupBox1));
  a.top := ComboBox1.top + 30;
end;


initialization
  RegisterClasses([TComboBox]);


end.

冥界3大法王

其他 参考： https://ask.csdn.net/questions/1086427

earlc

这样操作怎么觉得有点怪

E式丶男孩

我看csdn里面说的也只是复制到变量里面，是不是可以将复制的那个控件对象转成json字符串放到剪贴板，粘贴的时候解析一下这个json字符串并且添加到界面上
我比较菜，只能想到这种笨办法，不知道大佬们是怎么搞的

风铃夜思雨

procedure TForm1.Button1Click(Sender: TObject);
begin
COMBOBOX1.Items.Assign(Memo1.Lines);
end;

这样？？

冥界3大法王

风铃夜思雨 发表于 2023-1-7 00:55
procedure TForm1.Button1Click(Sender: TObject);
begin
COMBOBOX1.Items.Assign(Memo1.Lines);

@风铃夜思雨

哥们，粘不上去啊。。。


procedure TForm5.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to Memo1.Lines.Count - 1 do
    ComboBox1.Items.Append(Memo1.Lines);   //把Memo1内容添加到 ComboBox1下拉菜单中
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
  COMBOBOX1.Items.Assign(Memo1.Lines);     //没有达成 原来在 Delphi中复制  COMBOBOX1 到剪贴板的效果啊。。。
end;

冥界3大法王

https://www.cnblogs.com/guorongtao/p/16144904.html
又找到了一个源码。

风铃夜思雨

冥界3大法王 发表于 2023-1-7 09:34
@风铃夜思雨

哥们，粘不上去啊。。。

COMBOBOX1.Items.Assign(Memo1.Lines);  是把Memo1内容添加到 ComboBox1下拉菜单中


不明白你的具体意思， 复制 MEMO里的数据到剪贴板？