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

computerstarveling 2003-12-12 09:45:08
我想自定义一个消息,在form1上有一个edit1,有一个按钮button1,我要做的是如果edit1.text<50,然后我按了这个button1,那么在form2里的一个全局变量flag就等于1,如果edit1.text>=50,那么按下button1,form2里的flag就等于2,这两天正在看消息处理的资料,看得一字半解的.我想用自定义消息来做,各位大虾能否帮小弟一把?
...全文
9 3 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
谢了!
  • 打赏
  • 举报
回复
yudehui 2003-12-12
楼上的写的很清楚了
自己好好看看吧!
==========
来晚了
  • 打赏
  • 举报
回复
Cipherliu 2003-12-12
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.

  • 打赏
  • 举报
回复
相关推荐
发帖
Windows SDK/API
加入

1167

社区成员

Delphi Windows SDK/API
申请成为版主
帖子事件
创建了帖子
2003-12-12 09:45
社区公告
暂无公告