delphi - 为 Frame 添加 OnShow 事件响应函数.

更具体的说明可以参看以下两处:

 http://manztiara.wordpress.com/2009/10/06/delphi-frame-whats-going-on/

 http://www.delphifr.com/codes/TFRAME-ONSHOW-ONHIDE_51610.aspx

 

这里只把我实现的过程说明一下:

1. 在要添加 OnShow 事件的 Frame 类中, 其 Private 域添加以下函数声明

// 手动编写的 OnShow 事件响应函数
procedure CMShowingChanged(var M: TMessage); message CM_SHOWINGCHANGED;

2. 其实现部分为

  // 手动编写的 OnShow 事件响应函数
  procedure TFrmPageLayout.CMShowingChanged(var M: TMessage);
  begin
      inherited;
 
      if Showing then
      begin
        // 在这里写上 OnShow 的事件响应代码
      end
 end;


注: delphi 的 Frame, 实在是一个代码复用,模块划分的好东东, 但其中也有太多不尽如意的地方。如 OnCreate, OnShow 等事件,都不能很方便的进行响应。


评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值