delphi – 有一种简单的方法来调用框架中的方法,当拥有它的窗体

TMyFrame.FormActivated;
TMyFrame.FormDeactivated

procedure TMyForm.OnActivate(_Sender: TObject);
begin
  FFrame1.FormActivated;
  FFrame2.FormActivated;
end;

(假设VCL)框架应以某种方式拦截父窗体的激活/停用事件.有很多可能的方法可以做到这一点(设置父窗体的OnActivate / OnDeactivate事件,使用 SetWindowLong(GWL_WNDPROC)或 WindowProc进行子类化),但是如果多个帧实例对同一个表单实例执行此操作,则必须强制执行此操作.钩子必须与插入钩子相反.此外,在重新创建窗口句柄时,您将遇到正确处理案例的问题.

一种更简单的方法是使用类似这样的东西作为项目中所有表单的祖先：

TMyForm = class(TForm)
  procedure Activate; override;
  procedure Deactivate; override;
end;

procedure TMyForm.Activate;
begin
  inherited Activate;
  NotifyControls(CM_ACTIVATE);
end;

procedure TMyForm.Deactivate;
begin
  inherited Deactivate;
  NotifyControls(CM_DEACTIVATE);
end;

和这样的东西作为项目中所有框架的祖先：

TMyFrame = class(TFrame)
  procedure CMActivate(var Msg: TCMActivate); message CM_ACTIVATE;
  procedure CMDeactivate(var Msg: TCMDeactivate); message CM_DEACTIVATE;
end;

procedure TMyFrame.CMActivate(var Msg: TCMActivate);
begin
  // parent form activated
end;

procedure TMyFrame.CMDeactivate(var Msg: TCMDeactivate);
begin
  // parent form deactivated
end;

这种方式耦合非常松散,它仍然允许您通过覆盖需要特殊处理的后代中的CM_ACTIVATE或CM_DEACTIVATE消息处理程序来覆盖默认的TMyFrame行为.

注意事项：

>这还没有经过测试 – 这只是一个快速的建议,作为一个起点.您也可以声明并使用自己的自定义消息而不是CM_ACTIVATE / CM_DEACTIVATE,以避免对VCL的其余部分造成任何干扰.> NotifyControls通知所有控件 – 不仅是帧 – 但是普通控件默认忽略/不处理CM_ACTIVATE / CM_DEACTIVATE消息,因此它应该不是问题.您还可以实现自己的NotifyFrames方法.