如何接受SendMessage发送的自定义附加消息?

[littlebird82]

在一个公共模块中定义了
TFormInfo = record
FFormClass : TFormClass;
Ffm : TComponent;
FFormCaption : String;
end;

在FORM2中发送消息
var
fi: TFormInfo;
begin
fi.FFormClass := TForm3;
fi.Ffm := form3;
fi.FFormCaption := 'Form3';
sendmessage(form1.handle, wm_user+1, 0, lparam(fi));
end;

在Form1中如何接收FORM2发送过来的自定义附加消息？

[aiirii]

sendmessage(form1.handle, wm_user+1, 0, lparam(@fi));

然後, 在fomr2定義一個指針, 對應接收就可!!

[littlebird82]

请写出接收的代码？

[littlebird82]

各位大哥帮帮忙，小弟我正急着用的。

[lingee1999]

Message.lParam

[rick29]

interface中：
procedure RCV (……); message WM_MYMESS;
省略号是你的消息参数及其类型，比如类似于Delphi的TMessage、TWMDrawItem等。

在implementation中加入其实现，参考一下VCL中的那些消息实现吧。

[littlebird82]

能否给出详细的接收代码？

[sundayboysII]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;
const
WM_USERMY = WM_USER + 122;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
procedure WM_USERMY(var msg:TMessage);message WM_USERMY;
end;
TMyRecord = record
I: Integer;
S: string;
end;
PMyRecord = ^TMyRecord;
var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
MyRecord: TMyRecord;
begin
MyRecord.I := 1;
MyRecord.S := 'Test';
SendMessage(Handle, WM_USER + 122, 0, lparam(@MyRecord));
end;

procedure TForm1.WM_USERMY(var msg: TMessage);
var

PP: PMyRecord;
begin
PP := Pointer(Msg.LParam);
ShowMessage(pP.S);
end;

end.