剪贴板和控件句柄！！！！（调试通过立刻给分）

Question

现在一个窗体上有memo1,memo2 ,richedit,三个控件，一个复制按钮，一个粘贴按钮当用户选择memo1,memo2 ,richedit三个里的任何文字，点击复制或者是粘贴按钮就要相应的复制用户选择的东西，现在关键是不能获取用户光标所在的控件的句柄,所以当点击复制或者是粘贴按钮的时候不能确定用户的选择！！！请各位帮忙，最好给出代码！谢谢
procedure TForm1.Button1Click(Sender: TObject);
var
  vHandle:THandle;
  vPoint:TPoint;
begin
  GetCursorPos(vPoint);
  vHandle:=WindowFromPoint(vPoint);  if vHandle=memo1.Handle then
  begin
  clipboard.Clear;
  clipboard.AsText:=memo1.SelText;
  end
  else if vHandle=memo2.Handle then
   begin
  clipboard.Clear;
  clipboard.AsText:=memo2.SelText;
  end
  else if vHandle=richedit1.Handle then
   begin
  clipboard.Clear;
  clipboard.AsText:=richedit1.SelText;
  end; 
end;

Answer 1

你用TSpeedButton做按钮，
procedure TForm1.SpeedButton1Click(Sender: TObject);  //复制
begin
  TCustomMemo(ActiveControl).CopyToClipboard;
end;procedure TForm1.SpeedButton2Click(Sender: TObject);//粘贴
begin
  TCustomMemo(ActiveControl).PasteFromClipboard;
end;

Answer 2

不论什么控件！
//拷贝
SendMessage(ActiveControl.Handle, WM_COPY, 0, 0)
//粘贴
SendMessage(ActiveControl.Handle, WM_PASTE, 0, 0)
//剪切
SendMessage(ActiveControl.Handle, WM_CUT, 0, 0)

Answer 3

meiqingsong(阿飛)老兄的办法很有用!!!!!