捐赠 | 广告 | 注册 | 发布 | 上传 | 关于我们    
  粤ICP备10103342号-1 DELPHI盒子 | 盒子文章 | 盒子问答悬赏 | 最新更新 | 盒子检索 | 下载中心 | 高级搜索    
  精品专区 | 繁體中文 | 奖励公告栏 | 直通车账号登陆 | 关闭GOOGLE广告 | 临时留言    
 
广告
评论:在窗体间传递参数的例子
nedevaiyi 538641 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/
atayano 538640 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/
uyifivil 538639 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/
linfinder 6489 2004/7/3 16:36:42
是一个程序间的不同窗口,还是不同程序之间的.
ccwwdd 5501 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(目标窗体正确收到信息)。害的我只能忽略返回结果。
ccwwdd 5497 2004/6/1 14:36:56
很好!在D6下没问题
array 5492 2004/6/1 12:27:44
哦,其思想就是用消息携带要传送的信息啊。这样做的话,信息的大小是不是会有限制呢?
fenian_box 5111 2004/5/24 14:14:48
非常好,对窗体之间参数的传递有了更多的方法
peterluolaw 4992 2004/5/17 9:05:17
老大,有没有D6写的例子呀?
yy791120 4940 2004/5/15 7:40:32
把InheritedOverload.prj工程文件中的
ExceptionLog异常记录单元注释掉就可以了。
bestloen 4939 2004/5/15 7:12:29
不行呀?编译提示:
[Fatal Error] InheritedOverload.dpr(9): File not found: 'ExceptionLog.dcu'
yy791120 4909 2004/5/14 14:55:51
是不是提示
Cannot find resource file:
..\..\InheritedOverload.res. Recreated.
不管它,确定后照样可以编译成功。
有什么问题尽管提,共同进步。
jsnjsmc 4904 2004/5/14 14:05:39
调不过去,提示少东西。
第一页 上一页 下一页 最后页 有 13 条纪录 共1页 1 - 13
 用户名:
 密 码:
自动登陆(30天有效)
 
  DELPHI盒子版权所有 技术支持:深圳市麟瑞科技有限公司 1999-2024 V4.01 粤ICP备10103342号-1 更新RSS列表