我自定义的消息，怎么把参数传递到我的消息处理过程中？(50分)

  • 主题发起人 主题发起人 nywjx
  • 开始时间 开始时间
N

nywjx

Unregistered / Unconfirmed
GUEST, unregistred user!
我自定义了一个消息WM_SHOWCAPTION，写了消息处理过程WMSHOWCAPTION，在这个过程中
将一个Lable的Caption改变显示。
在发送消息的时候我用SendMessage（Form1.Handle,WM_SHOWCAPTION,0,0），我怎么把
参数也带过去呢？
就是说我在发送消息的时候就已经知道了要显示什么，比如说，要显示“已收到消息”，
那么我在发送消息的时候怎么把这个“已收到消息”字符串同时传递过去，让消息处理
过程能直接显示呢？
 
在后面两个 0 的地方，填充你的参数，可以两都用，也可以只用一个。
若是简单数据类型，如整数，可直接传值，
如果是字符串，就填上它的指针（地址）；
 
哦，那消息处理过程中，怎么使用这两个参数呢？
 
不是 TMsg 中有 wparam 和 lparam 嘛
 
不好意思，能不能详细点，我对这方面不熟。我的例子是这样的：
procedure TForm1.WMTEST(var Message:TMessage);
begin
Label1.Caption:=
//这里怎么得到参数呢？
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMessage(Form1.Handle,WM_TEST,'收到',0);
end;
 
你要的参数可以有多种取法：
如果你放在第一个0的地方用：Message.WParam
如果你放在第二个0的地方用：Message.LParam
当然还有其它取法。以下是TMessage的定义：
type
TMessage = packed record

Msg: Cardinal;
case Integer of
0: (
WParam: Longint;
LParam: Longint;
Result: Longint);
1: (
WParamLo: Word;
WParamHi: Word;
LParamLo: Word;
LParamHi: Word;
ResultLo: Word;
ResultHi: Word);

end;
 
procedure TForm1.WMTEST(var Message:TMessage);
var
s : PChar;
begin
s := PChar(Pointer(Message.lParam));
Label1.Caption:= s;
//这里怎么得到参数呢？
Message.Result := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s : String;
begin
s := '收到';
SendMessage(Form1.Handle,WM_TEST,0,Longint(PChar(s)));
end;
 
我看了帮助，TMessage的定义如下：
type
TMessage = packed record

Msg: Cardinal;
case Integer of
0: (
WParam: Longint;
LParam: Longint;
Result: Longint);
1: (
WParamLo: Word;
WParamHi: Word;
LParamLo: Word;
LParamHi: Word;
ResultLo: Word;
ResultHi: Word);

end;
可这都是整数啊，我要传递字符串、TDateTime、自定义的类型怎么办呢？
 
你这里如果就两个汉字，可以传递汉字的 Ord ，
如果很长就要传送指针。
如果你还不清楚，我等会告诉你。
 
你把消息定义也贴出来，这样我调通后，你就可以用了。
 
干吗去了，你的参数传递是有问题的。赶快贴出来，马上解决。
 
interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

const
WM_TEST=WM_USER+1;

type

TUser=record
UserName:string;
UserID:word;
UserDateTime:TDateTime;
end;

TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure WMTEST(var Message:TMessage);message WM_TEST;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMTEST(var Message:TMessage);
begin
在这里显示出这个用户的信息
end;

procedure TForm1.Button1Click(Sender: TObject);
var User:TUser;
begin
User.UserName:='王建欣';
User.UserID:=4825;
User.UserDateTime:=Now;
//SendMessage(Form1.Handle,WM_TEST,0,Longint(PChar(User)));
怎么写？
end;
 
谢谢你，jsxjd。
 
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

const
WM_TEST=WM_USER+1;

type
PUser=^TUser;
TUser=record
UserName:string;
UserID:word;
UserDateTime:TDateTime;
end;

TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure WMTEST(var Message:TMessage);message WM_TEST;
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMTEST(var Message:TMessage);
var
a : PUser;
begin
a := Pointer(Message.lParam);
Label1.Caption := a^.UserName;
end;

procedure TForm1.Button1Click(Sender: TObject);
var User:TUser;
begin
User.UserName:='王建欣';
User.UserID:=4825;
User.UserDateTime:=Now;
SendMessage(Form1.Handle,WM_TEST,0,Longint(Pointer(@User)));
//怎么写？
end;


end.
 
谢谢，能留个email吗？有事再请教你啊。
我的email是wjx@easyentry.com.cn
 
tseug@263.net, 不过， 不要给我发病毒或木马，最近老有人这么干。[:D]
 
以下是成功的代码，注意连接 Button1的点击事件，我一开始没连接，
老没反应，花了我好长时间。
里面多定义了一个 PUser,你可以酌情处理。
要传送的参数最好放在全局变量中，因为局部变量马上会消失。

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls,shellapi;

const
WM_MYTEST=WM_USER+1;

type

TUser=record
UserName:string;
UserID:word;
UserDateTime:TDateTime;
end;
PUser=^tUser ;

TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
procedure WMTEST(var Message:TMessage);message WM_MYTEST;
public
{ Public declarations }
end;

var
Form1: TForm1;
User:TUser;
implementation

{$R *.DFM}

procedure TForm1.WMTEST(var Message:TMessage);
var
p:PUser;
begin
p:=PUser(message.wparam);
label1.caption:=format('%s %d %s',[p^.UserName,p^.UserId,datetimetostr(p^.Userdatetime)]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
User.UserName:='王建欣';
User.UserID:=4825;
User.UserDateTime:=Now;
SendMessage(Form1.Handle,WM_MYTEST,Integer(@User),0);
end;

end.


 
带来了一个相关的问题，我在SendMessage时，可能是一个一个接连不断地发，而且时间
间隔很短。但是在消息处理过程中，可能要根据接收到的用户ID和用户名到表中查询一些
信息，这样在消息处理过程中可能要耽误一些时间。
那么，会不会漏掉消息？就是说我在SendMessage中发了，但是消息处理过程中来不及处
理，丢失信息？
 
多人接受答案了。
 
您必须登录或注册才可回复。

Similar threads

S
[教程]高效处理在主线程中显示后台线程处理进度
回复
0
查看
449
swish
S
不
Delphi的参数传递约定以及动态参数个数(转载笔记) - 不得闲
回复
0
查看
908
不得闲
不
不
关于Delphi中DLL,BPL等无法调试的问题 - 不得闲
回复
0
查看
1K
不得闲
不
X
tms web core 通过URL 传递参数 - xalion
回复
0
查看
885
xalion
X
X
使用kbmmw 的REST 服务实现上传大文件 - xalion
回复
0
查看
1K
xalion
X
后退
顶部