灵异事件（变量自动变0）

Question

RT
procedure   TMainfm.View(var   MSG:TMsg);
begin
case msg.wParam of
0:Panel1.Caption:='数量:'+IntToStr(myth[msg.wParam].count)+'   当前:'+myth[msg.wParam].tmp;
1:Panel2.Caption:='数量:'+IntToStr(myth[msg.wParam].count)+'   当前:'+myth[msg.wParam].tmp;
2:Panel3.Caption:='数量:'+IntToStr(myth[msg.wParam].count)+'   当前:'+myth[msg.wParam].tmp;
3:Panel4.Caption:='数量:'+IntToStr(myth[msg.wParam].count)+'   当前:'+myth[msg.wParam].tmp;
4:Panel5.Caption:='数量:'+IntToStr(myth[msg.wParam].count)+'   当前:'+myth[msg.wParam].tmp;
5:Panel6.Caption:='数量:'+IntToStr(myth[msg.wParam].count)+'   当前:'+myth[msg.wParam].tmp;
6:Panel7.Caption:='数量:'+IntToStr(myth[msg.wParam].count)+'   当前:'+myth[msg.wParam].tmp;
7:Panel8.Caption:='数量:'+IntToStr(myth[msg.wParam].count)+'   当前:'+myth[msg.wParam].tmp;
8:Panel9.Caption:='数量:'+IntToStr(myth[msg.wParam].count)+'   当前:'+myth[msg.wParam].tmp;
end;
end;当PostMessage(Mainfm.Handle,WM_MYMSG,mytag,0)的时候 观察消息的处理函数msg.wParam变成了0
而mytag是个不为0的数啊
直接填写数字也变成0

Answer 1

呵呵~~一步一步跟踪值得变化……