小编Qua*_*sik的帖子

我正在研究delphi XE2.
我需要的是:
我需要带有框架的MyFrame类,没有任何可见的组件,但是在Object Inspector中可以看到新的事件.此事件将通知我的表单(将放置MyFrame对象),表示框架上的所有数据都已满.

我有什么:
根据这篇文章和TOndrej的答案,以及Ba 提示的那个提示,对于XE2,我们需要更换

delphivclide := GetModuleHandle('delphivclide160.bpl');

有了这个:

delphivclide := GetModuleHandle('vcldesigner160.bpl');

我有新框架的代码:

unit MyFrame;
interface
uses
  System.Classes, Vcl.Forms;
type
  TMyFrame = class(TFrame)
  private
  protected
    FOnFilledData : TNotifyEvent;
  public
  published
    property OnFilledData : TNotifyEvent read FOnFilledData write FOnFilledData;
  end;
implementation
end.

注册单位的代码:

unit MyFrameReg;
interface
procedure Register;

implementation
uses Windows, DesignIntf, Dialogs, wFrame;

procedure Register;
var
  delphivclide: THandle;
  TFrameModule: TCustomModuleClass;
begin
  delphivclide := GetModuleHandle('vcldesigner160.bpl');
  if delphivclide <> 0 then
  begin
    TFrameModule := GetProcAddress(delphivclide, '@Vclformcontainer@TFrameModule@'); …