Question

delphi里如何使用SendMessage发送字符串？

Answer 1

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