F
foxgirl
Unregistered / Unconfirmed
GUEST, unregistred user!
改一下,这样行不?<br>procedure TForm1.FormMouseWheelUp(Sender: TObject; Shift: TShiftState;<br> MousePos: TPoint; var Handled: Boolean);<br>var<br>handle:thandle;<br>begin<br>handle:=findwindow(nil,'TsTV(For W2K)');<br>if handle<>0 then<br> sendmessage(handle,vk_Right,0,0);//<br>end;<br>在这个电视程序中,可以在窗口上单击左右箭头键达到换台的目的,<br>上面的语句明明已经找到该电视窗口的句柄,为何对该句柄发送的消息电视窗口却不响应?