识别接收消息的内容

Desmond1011 2003-01-15 09:40:34
如何通过SendMessage函数来获得接收消息方的内容,因为我的接收消息方有个变量必须让调用方知道。
...全文
33 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
Eastunfail 2003-01-15
  • 打赏
  • 举报
回复
我觉得这到题目50分够了,因为这是Win32编程的基础
Wally_wu 2003-01-15
  • 打赏
  • 举报
回复
要通过传递指针方式,例如:
在发送方:
const iaa = 1;
var
AssignPoint: String;
begin
......
SendMessage (form1.Handle, WM_FUNC,iaa, LongInt(@AssignPoint));
.......
end;
iaa为自定义的消息,@AssignPoint就是你需要的函数。
在接收方:
procedure WMFuncMessage(var Msg: TMessage);
type
pString = ^String;
var
Pt: Pointer;
ps: pString;
Str: String;
begin
case Msg.WParam of
iaa:
begin
Pt := Pointer(Pt);
Ps := pString(Pt);
Str := 'Hello, Wally';
Ps^ := Str;
end;
end;
end;

顺便说一句,这题应该不止50分。

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧