Delphi Tokyo - 我想通过Windows消息在窗体之间发送记录结构。具体而言,我有一个“显示运行状态”类型的窗口。当应用程序中发生其他行为时,我需要发送“更新状态窗口”类型的消息。我已经找到了一个通过Windows消息传递记录的示例(但仅在同一进程内),但是在使其工作方面遇到了问题。具体而言,在接收端,我无法编译Windows消息处理程序代码。我遇到了“Incompatible Type”错误,但我无法弄清楚如何进行类型转换以使其工作。以下是适用的代码片段。
在globals.pas单元中,所有窗体都可以访问。
在接收表单上,也就是我的状态表单中...声明我的消息监听器。
现在定义消息处理程序。
如何将 Msg.LParam 转换回记录结构?
在globals.pas单元中,所有窗体都可以访问。
// Define my message
const WM_BATCHDISPLAY_MESSAGE = WM_USER + $0001;
...
// Define the record which is basically the message payload
type
TWMUCommand = record
Min: Integer;
Max: Integer;
Avg: Integer;
bOverBudget: Boolean;
Param1: Integer;
Param2: String;
end;
...
// define a global variable
PWMUCommand : ^TWMUCommand;
现在要发送消息。目前这只是一个按钮,用于测试。
procedure TMainForm.BitBtn1Click(Sender: TObject);
var
msg_prm: ^TWMUCommand;
begin
New(msg_prm);
msg_prm.Min := 5;
msg_prm.Max := 10;
msg_prm.Avg := 7;
msg_prm.bOverBudget := True;
msg_prm.Param1 := 0;
msg_prm.Param2 := 'some string';
PostMessage(Handle, WM_BATCHDISPLAY_MESSAGE, 0, Integer(msg_prm));
end;
在接收表单上,也就是我的状态表单中...声明我的消息监听器。
procedure MessageHandler(var Msg: TMessage); message WM_BATCHDISPLAY_MESSAGE;
现在定义消息处理程序。
procedure TBatchForm.MessageHandler(var Msg: TMessage);
var
msg_prm: ^TWMUCommand;
begin
try
// Next line fails with Incompatible types
msg_prm := ^TWMUCommand(Msg.LParam);
ShowMessage(Format('min: %d; max: %d; avg: %d; ovrbdgt: %s; p1: %d; p2: %s',
[msg_prm.Min, msg_prm.Max, msg_prm.Avg, BoolToStr(msg_prm.bOverBudget, True),
msg_prm.Param1, msg_prm.Param2]));
finally
Dispose(msg_prm);
end;
end;
如何将 Msg.LParam 转换回记录结构?