捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  粤ICP备10103342号-1 DELPHI盒子 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 盒子检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
盒子资源分类
全部展开 - 全部合拢
在窗体间传递参数的例子
关键字：InheritedOverload 传递参数 重载 消息
来　自：原创
平　台：Win9x,Win2k/NT,WinXP 下载所需：0 火柴
深浅度：初级 完成时间：2004/5/13
发布者：yy791120 发布时间：2004/5/14
编辑器：DELPHI7 语　　种：简体中文
分　类：窗体 下载浏览：1805/13353
加入到我的收藏
下载错误报错
登陆以后才能下载
 用户名：
 密　码：
自动登陆(30天有效)
图片如果打不开，说明流量不够了，请稍候下载……
经常看到有人问如何在窗口间传递参数、消息，于是就写了这么一个例子：
一个程式的不同窗体间传递自定义消息。
窗体根据消息传递的参数有不同反应。
继承创建的窗体根据创建时的参数有不同反应。
写得很笨拙，大家别笑话。
Google
 
本站原创作品，未经作者许可，严禁任何方式转载；转载作品，如果侵犯了您的权益，请联系我们！
龙脉加密锁 15元起 Grid++Report 报表 申请支付@网
　相关文章
没有相关文章
相关评论
共有评论13条 当前显示最后6条评论
ccwwdd 2004/6/1 14:36:56
很好！在D6下没问题
ccwwdd 2004/6/1 15:08:23
我曾经在C++ Builder 5.0下使用系统消息：WM_COPYDATA 传送比较多的信息，可以传送一个数据结构(Delphi下是记录Record)指针到其他窗体：
void __fastcall TFrm_Main::Send_DataToBureauForm(HWND Handle, int mode, LinkData* Link_data)
{
   COPYDATASTRUCT * Lpt = new COPYDATASTRUCT;
   Lpt->dwData = mode;
   Lpt->cbData = sizeof(LinkData);
   Lpt->lpData = (byte *)Link_data;
   if(!SendMessage(Handle, WM_COPYDATA, (DWORD)(this->Handle), (DWORD)Lpt))
   {
      #ifdef   DISPLAY_SENDMESSAGE_ERROR
      ShowMessage("SendMessage Error:" + IntToStr(GetLastError())
                     + ", Parent_Handle:0x" + IntToHex((int)this->Handle, 8)
                     + ", Child_Handle:0x" + IntToHex((int)Handle, 8));
      #endif
   };
   delete Lpt;
}

Delphi下稍加修改就可以使用了。只是不知为何，SendMessage调用后总是返回false（目标窗体正确收到信息）。害的我只能忽略返回结果。
linfinder 2004/7/3 16:36:42
是一个程序间的不同窗口,还是不同程序之间的.
uyifivil 2016/2/28 17:37:36
[url=http://buydiflucan-online.org/]Diflucan[/url] <a href="http://pharmacyonline-for-sale.com/">Propecia Pharmacy</a> http://40mg-lasix-buy.com/
atayano 2016/2/28 17:37:39
[url=http://buydiflucan-online.org/]Diflucan[/url] <a href="http://pharmacyonline-for-sale.com/">Cialis Canadian Pharmacy</a> http://40mg-lasix-buy.com/
nedevaiyi 2016/2/28 17:44:50
[url=http://buydiflucan-online.org/]Diflucan Without A Prescription[/url] <a href="http://pharmacyonline-for-sale.com/">Online Pharmacy</a> http://40mg-lasix-buy.com/
我要发表评论 查看全部评论
 
  DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1 更新RSS列表