关于自定义消息的一个问题...

[computerstarveling]

我想自定义一个消息,在form1上有一个edit1,有一个按钮button1,我要做的是如果edit1.text<50,然后我按了这个button1,那么在form2里的一个全局变量flag就等于1,如果edit1.text>=50,那么按下button1,form2里的flag就等于2,这两天正在看消息处理的资料,看得一字半解的.我想用自定义消息来做,各位大虾能否帮小弟一把?

[Cipherliu]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
const
WM_MYMSG=WM_USER+1;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses unit2;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
num:double;
begin
num:=strtofloat(edit1.Text);
if num<50 then
SendMessage(Form2.Handle,WM_MYMSG,1,0)
else
SendMessage(Form2.Handle,WM_MYMSG,2,0);
end;

end.

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Unit1;

type
TForm2 = class(TForm)
private
{ Private declarations }
procedure WmMyMsg(var Msg:TMessage);message WM_MYMSG;
public
{ Public declarations }
flag:integer;
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.WmMyMsg(var Msg: TMessage);
begin
flag:=Msg.WParam;
end;

end.

[yudehui]

楼上的写的很清楚了
自己好好看看吧！
＝＝＝＝＝＝＝＝＝＝
来晚了

[computerstarveling]

谢了!