Delphi 2009未分配自定义组件的事件

Question

我创建了一个自定义组件TCustomHTTPReqResp，该组件继承自THTTPReqResp。

我也为这个组件创建了一个自定义事件。我遇到的唯一问题是，尽管事件已发布并显示在IDE上，但当我分配事件处理程序并运行应用程序时，不会调用事件处理程序。

但是，如果将其分配到表单上的代码上。创建即：

CustomHTTPReqResp1.OnBeforeGet := CustomHTTPReqResp1BeforeGet;

它是有效的。除此之外，其他一切都很好。

a做错什么了吗？提前谢谢。

以下是自定义组件的代码：

unit CCustomHTTPReqResp;
interface
uses
  SysUtils, Classes, Dialogs, SOAPHTTPTrans;
type
  TCustomHTTPReqResp = class(THTTPReqResp)
  private
    { Private declarations }
    FOnBeforeGet: TNotifyEvent;
    procedure DoOnBeforeGet;
  protected
    { Protected declarations }
    procedure SetOnBeforeGet(const AOnBeforeGet: TNotifyEvent);
  public
    { Public declarations }
    constructor Create(Owner: TComponent); override;
    destructor Destroy; override;
    procedure Get(Resp: TStream); override;
  published
    { Published declarations }
    { Events }
    property OnBeforeGet: TNotifyEvent read FOnBeforeGet write SetOnBeforeGet;
  end;
procedure Register;
implementation
procedure Register;
begin
  RegisterComponents('My Components', [TCustomHTTPReqResp]);
end;
{ TCustomHTTPReqResp }
constructor TCustomHTTPReqResp.Create(Owner: TComponent);
begin
  inherited Create(Owner);
  // Code here.
end;
destructor TCustomHTTPReqResp.Destroy;
begin
  // Code here.
  inherited;
end;
procedure TCustomHTTPReqResp.SetOnBeforeGet(const AOnBeforeGet: TNotifyEvent);
begin
  FOnBeforeGet := AOnBeforeGet;
end;
procedure TCustomHTTPReqResp.DoOnBeforeGet;
begin
  if Assigned(FOnBeforeGet) then
  begin
    FOnBeforeGet(Self);
  end
  else
  begin
    MessageDlg('No Before Post Event Handler found!', mtInformation, mbOKCancel, 0);
  end;
end;
procedure TCustomHTTPReqResp.Get(Resp: TStream);
begin
  // Raise OnBeforeGet.
  DoOnBeforeGet;
  inherited Get(Resp);
end;

end.

Answer 1

感谢大家的评论，也感谢TLama的提示。

事实证明，我在表单上犯了一个错误。我从工具选项板中删除了表单上的自定义控件，并在表单上创建了另一个控件。使用相同的名称创建，我认为这导致了问题。现已修复。