向delphi子窗口发送信息的问题(急!) ( 积分: 50 )

我用PostMessage()或SendMessage(),都只能向上级窗口或弹出窗口发送信息,而不能向子窗口发送信息,若想住子窗口发送信息有没有办法解决?

我用PostMessage()或SendMessage(),都只能向上级窗口或弹出窗口发送信息,而不能向子窗口发送信息,若想住子窗口发送信息有没有办法解决?

SendMessage(主窗口.ClientHandle, WM_MDIACTIVATE, 子窗口.Handle, 0);

试过了,不行,不知道是不是我的用法有问题,我的代码是这样写的:<br>procedure TForm6.FormCloseQuery(Sender: TObject; var CanClose: Boolean);<br>var<br> &nbsp;hanldmain:Thandle;<br> &nbsp;hanldtemp:Thandle;<br>begin<br> &nbsp;hanldmain:=FindWindow('TfrmMainForm','一卡通系统');<br> &nbsp;hanldtemp:= FindWindow('TForm5','Form5');<br> &nbsp;//PostMessage(hanldtemp,RegisterWindowMessage('TESTTEST'),0,3);<br> &nbsp;//SendMessage(主窗口.ClientHandle, WM_MDIACTIVATE, 子窗口.Handle, 0);<br> &nbsp;SendMessage(hanldmain, RegisterWindowMessage('TESTTEST'), hanldtemp, 0);<br>end;<br>楼上的麻烦帮我看一下!

不是写了“主窗口.ClientHandle”么：<br>SendMessage(TForm(hanldmain).ClientHandle, RegisterWindowMessage('TESTTEST'), hanldtemp, 0);<br>不知道对不对，试试吧。

试了,还是不能用~

procedure TForm6.FormCloseQuery(Sender: TObject; var CanClose: Boolean);<br>var<br> &nbsp;hanldMain:Thandle;<br> &nbsp;hanldTemp:Thandle;<br> &nbsp;frmMain: TForm;<br>begin<br> &nbsp;hanldMain := FindWindow('TfrmMainForm', '一卡通系统');<br> &nbsp;hanldTemp := FindWindow('TForm5', 'Form5');<br> &nbsp;frmMain.Handle := hanldMain;<br> &nbsp;SendMessage(frmMain.ClientHandle, RegisterWindowMessage('TESTTEST'), hanldTemp, 0);<br>end;