SendMessage发送字符串参数

#define WM_MY_DOSOME WM_USER+1 // do something
void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
bool &Handled)
{
if( Msg.message == WM_MY_DOSOME )
{
Caption = (char*) Msg.lParam;
}
}
void __fastcall TForm1::WndProc(Messages::TMessage &Message)
{
if (Message.Msg == WM_MY_DOSOME )
{
Caption = (char*) Message.LParam;
}
TForm::WndProc(Message);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
char buf[100];
strcpy(buf,Now().DateTimeString().c_str() );
PostMessage(Handle,WM_MY_DOSOME,(WPARAM) 0, (LPARAM)buf );
}

PostMessage发送的消息两种发放都能接收到。

sendMessage不入消息队列，ApplicationEvents1Message只处理消息队列里的消息，所以接受不到。

WndProc都可以处理。