Question

delphi 怎么用Sendmessage发送Ctrl+V消息

Answer 1

在主窗口中使用如下代码：先在public中加入消息函数的声明Delphi代码procedureWMTestEnd(varAMsg:TMessage);messageWM_TEST_END;//消息函数其中WM_TEST_END是自定义的消息再在implementation写函数Delphi代码procedureTForm1.WMTestEnd(varAMsg:TMessage);vars:string;begins:=string(Pointer(AMsg.wParam)^);Memo1.Lines.Add(s);end;需要注意的是，如果你在线程中，一定要使用SendMessage来发送消息，如果使用PostMessage会出错。原因我想是因为PostMessage发送消息后线程会继续执行下去，当主窗口收到这个消息并处理时，线程可能已经结束了，这时指向字符串的那个指针就会出错；而SendMessage发送消息后会将线程挂起，直到消息处理完成后，才继续执行下面代码。