CopyToClipboard 使用 续

Question

在上个问题http://topic.csdn.net/u/20110617/02/5339a58d-f4f8-41a9-9c3f-da0bee80e961.html?75765中得到  五哥cai5  已经解决了  一个popupmenu应用不同控件的方法 ：  if bsSkinEdit3.SelLength > 0 then
  Clipboard.SetTextBuf(PChar(bsSkinEdit3.SelText));
  if bsSkinMemo1.SelLength > 0 then
  Clipboard.SetTextBuf(PChar(bsSkinMemo1.SelText));请问一下，粘贴应该如何写呢，就是上面已经复制的内容，如果通过popupmenu粘贴在焦点所在的控件上面？  谢谢

Answer 1

自己也不是很明白，看了下这个，明白报一点：
http://tech.ccidnet.com/art/1079/20020806/21538_1.html

Answer 2

一楼的朋友，pastFromClipboard   是edit和memo的方法，
请问这样，应该怎么样判断是在哪个控件上呢，谢谢

Answer 3

在万一博客上看了他介绍的TClipboard   好像也没有讲这方面的，希望做的过朋友能帮一下

Answer 4

已经可以了，使用API函数完成的Keybd_event()   在Windows单元定义,用来模拟按键
我是这样做的，希望可以帮到遇到同样问题的朋友：//复制
procedure TForm1.N1Click(Sender: TObject);
begin
  keybd_event(VK_CONTROL,0,0,0);               //Ctrl键  按下
  keybd_event(Byte('C'),0,0,0);                //C键     按下
  keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0); //Ctrl键  抬起 VK_CONTROL=17  KEYEVENTF_KEYUP=2
  keybd_event(Byte('C'),0,KEYEVENTF_KEYUP,0);  //C键     抬起
end;//粘贴
procedure TForm1.N3Click(Sender: TObject);
begin
Keybd_event(VK_CONTROL,0,0,0);                 // Ctrl键  按下
Keybd_event(byte('V'),0,0,0);                  // V键     按下
Keybd_event(VK_CONTROL,0,KEYEVENTF_KEYUP,0);   // Ctrl键  抬起
Keybd_event(byte('V'),0,KEYEVENTF_KEYUP,0);    // V键     抬起
end;//剪切
procedure TForm1.N2Click(Sender: TObject);
begin
keybd_event(17,0,0,0);                         // Ctrl键  按下
keybd_event(Byte('X'),0,0,0);                  // X键     按下
keybd_event(17,0,2,0);                         // Ctrl键  抬起
keybd_event(Byte('X'),0,2,0);                  // X键     抬起
end;
我本用来是用cai5 五哥的方法来写复制功能，现在改为用API，连Clipboard单元都无需引用了，省了。
一楼二楼各得50分，谢谢