请教各位：关于强制类型转换

[GipsyCN]

子窗口中：
SendMessage(hMainFormHandle, WM_MERGE_MENU, 0, LongInt(@aMainMenu));

主窗口处理WM_MERGE_MENU消息时：
procedure TfmDTMMain.MergeSubMenu(var aMsg: TMessage);
begin
MainMenu1.Merge(TMainMenu(aMsg.LParam));
end;
为什么会出错？？？

[chechy]

改一下：
SendMessage(hMainFormHandle, WM_MERGE_MENU, 0, LongInt(aMainMenu));

注意Delphi的类本身就是一个指针，所以不必使用@符号。

[GipsyCN]

首先感谢这位朋友。我曾试过，结果一样。

[hellion]

主窗口处理WM_MERGE_MENU消息时aMainMenu还存在么？

[GipsyCN]

应该是不存在，是强制转换不成功，我想，否则不会出错了。

[hellion]

不存在的话当然出错了。
1、改成全局变量
2、处理消息前不要free

[saimaya]

gz

[GipsyCN]

我的程序框架模仿资源管理器，
所有的子窗口显示时都显示在主窗口右半部分的NoteBook的不同页面上，
而子窗口和主窗口的通信，都是使用SendMessage。
我怀疑可能这种强制转换对TMainMenu不适合（也没道理啊）。

[GipsyCN]

我也尝试过使用先定义： PTMainMenu = ^TMainMenu;
MainMenu1.Merge(PTMainMenu(aMsg.LParam)^)
同样不行。

[klcn]

使用@aMainMenu是取得对象引用本身的的地址，这样是不对的。
改了以后仍然有问题，可能是你的处理函数有问题。

[GipsyCN]

下面的代码没问题：
procedure SendStrToMainForm(asMsg: string);
begin
SendMessage(gAppInfo.hMainFormHandle, WM_GET_STR, 0, LongInt(PChar(asMsg)));
end;

procedure TfmDTMMain.DispGetStr(var aMsg: TMessage);
begin
stbMain.Panels[2].Text := string(aMsg.LParam);
end;

[klcn]

现在你的消息传递和类型转换都是没有问题的，
也就是说在你的消息处理函数中已经成功的得到
了aMainMenu，你可以调试一下看看，在消息处理函数
中经过类型转换后的值是否仍然指向一块有效的内存。
如果这些都没有问题，只能说明你在消息处理函数中对
这个值的使用有问题。

[hantao]

up

[GipsyCN]

在“大富翁”上搞定！多谢各位参与！
MainMenu1.Merge(PTMainMenu(Pointer(aMsg.LParam)^)!!!