sendmessage问题

[sunnycool]

如何用sendmessage将剪贴板中的字符串粘贴到指定的handle中去，请给代码，希望是测试过的，谢谢！

[jinjazz]

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(edit1.Handle, WM_PASTE, 0, 0);
end;

[sunnycool]

不好意思，再多问一句，如果是要把变量里的值转移到handle里面去，应该怎么写？

[ly_liuyang]

SendMessage(AHandle, WM_PASTE, 0, 0);

[jinjazz]

edit2.Text:=inttostr(edit1.Handle);
sendmessage(strtoint(edit2.Text),WM_PASTE,0,0)

===========================你是说这样?

[fim]

uses clipbrd;

Clipboard.AsText := 'AAA';
SendMessage(Edit1.Handle,WM_PASTE,0,0);