Delphi窗体间发送消息或字符串

在Delphi 开发中,常常应用到窗体消息传递,以达成某种操作要求,以下列举一个应用的例子,供大家参考。 

自定义过程/函数方法:
//发送字符串到指字句柄的窗口中 (接收窗体需用发送时的消息常量WM_COPYDATA)
procedure SendMessageData(AHandle: THandle; AStr: String);
var
 sData: TCopyDataStruct;
begin
   sData.cbData := Length(AStr) + 1;
   //为传递的数据分配内存
   GetMem(sData.lpData,sData.cbData );
   try
   StrCopy(sData.lpData,PChar(AStr));
   //发送WM_COPYDATA消息
   SendMessage(AHandle,WM_COPYDATA,0,Cardinal(@sData));
   finally
   FreeMem(sData.lpData); //释放资源
   end;
end; 

//发送消息到指字句柄的窗口中
procedure SendMyMessage(AHandle: THandle; aMsg:Word);
begin
   SendMessage(AHandle,aMsg,0,0)
end;

 

//------------------

调用:
SendMessageData(TForm(FindGlobalComponent('FrmHint')).Handle,'ABC');

SendMyMessage(TForm(FindGlobalComponent('FrmHint')).Handle, WM_USER+1001);

 

'FrmHint' 是你想要接收消息的窗体的Name 

//=================================

 

在接收的窗体中定义如下常量及过程

const
    WM_MYDEFMSG = WM_USER+1001;

声明部分:
procedure WMCOPYDATA(var AMsg: TWmCopyData); message WM_COPYDATA;
procedure ReceiedFormMsg(var msg :TMsg); message WM_MYDEFMSG; 

过程实体:
//接收发送的字符串,即预定消息WM_COPYDATA
procedure WMCOPYDATA(var AMsg: TWmCopyData);
var s : string;
begin
  s := StrPas(AMsg.CopyDataStruct^.lpData);
  //To do something
end;

//接收预定的消息
procedure ReceiedFormMsg(var msg: TMsg);
begin
   //Make you want to do
end;

 

>>http://blog.csdn.net/webroad/archive/2009/03/04/3955998.aspx

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值