如何把控件中的信息加到剪切板？

详细点吧，兄弟
我试过发送Message(MEMO1,WM_COPY,0，0）
可是不将MEMO中的信息全部选定就没有作用

解决方案 »

  1.   

    memo1.CutToClipboard 
    这样不就行了
      

  2.   

    或者用 TClipBoard.SetTextBuf()？
      

  3.   

    CutToClipboard没有这个函数
    后一个TClipBoard类没有component.
    都失败
      

  4.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      memo1.SelectAll;
      memo1.CopyToClipboard;
    end;
      

  5.   

    因为不会将memo的显示一行行地进行
    所以我用listbox控件，再用
    form3.memo1.Text:=form3.ListBox1.Items.Text;
    form3.Memo1.SelectAll ;
    form3.Memo1.CopyToClipboard ;
    当然觉得有点烦
    有何方法将memo的信息一行行加入显示？